home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / newwbhires.s < prev    next >
Text File  |  1997-01-31  |  185KB  |  13,123 lines
  1.  
  2.  
  3. *************************************************
  4. * Stuff to do to get a C2P version:
  5. * Change copperlist
  6. * Change wall drawing
  7. * change floor drawing
  8. * change object drawing
  9. * change polygon drawing (ugh)
  10. * Write a palette generator program in AMOS
  11. * to provide a good 256 colour palette and
  12. * convert all graphics files specified
  13. * (possibly included in the game linker
  14. * program).
  15. * Possibly change the wall/floor/object
  16. * palettes to look nicer with more shades.
  17. * RE-implement stippling (if not present)
  18. * as it will look gorgeous now.
  19. *************************************************
  20.  
  21. ;MIDDLEX set 96
  22. ;RIGHTX set 191
  23. ;BOTTOMY set 160 
  24.  
  25. ;MIDDLEX set 96
  26. ;RIGHTX set 191
  27. ;BOTTOMY set 160
  28.  
  29. _break    macro
  30. ;    bkpt    \1
  31.     endm
  32.  
  33.  
  34. FILTER    macro
  35. ;    move.l    d0,-(sp)
  36. ;    move.l    #65000,d0
  37. ;.loop\@
  38. ;    bchg    #1,$bfe001
  39. ;    dbra    d0,.loop\@
  40. ;    move.l    (sp)+,d0
  41.     endm
  42.  
  43. BLACK    macro
  44.     move.w    #0,$dff180
  45.     endm
  46.  
  47. RED    macro
  48.     move.w    #$f00,$dff180
  49.     endm
  50.  
  51. FLASHER macro
  52. ;    movem.l    d1,-(sp)
  53. ;    move.w    #-1,d1
  54. ;
  55. ;loop3\@
  56. ;;    move.w    #\1,$dff180
  57. ;    nop
  58. ;    nop
  59. ;    move.w    #\2,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    dbra    d1,loop3\@
  63.  
  64. ;    movem.l    (sp)+,d1
  65.  
  66.     endm
  67.  
  68. GREEN    macro
  69.     move.w    #$0f0,$dff180
  70.     endm
  71.  
  72. BLUE    macro
  73.     move.w    #$f,$dff180
  74.     endm
  75.  
  76. DataCacheOff macro
  77.     movem.l    a0-a6/d0-d7,-(sp)
  78.     move.l    4.w,a6
  79.     moveq    #0,d0
  80.     move.l    #%0000000100000000,d1
  81.     jsr    _LVOCacheControl(a6)
  82.     movem.l    (sp)+,a0-a6/d0-d7
  83.     endm
  84.  
  85. DataCacheOn macro
  86.     movem.l    a0-a6/d0-d7,-(sp)
  87.     move.l    4.w,a6
  88.     moveq    #-1,d0
  89.     move.l    #%0000000100000000,d1
  90.     jsr    _LVOCacheControl(a6)
  91.     movem.l    (sp)+,a0-a6/d0-d7
  92.     endm
  93.  
  94.     opt    P=68020
  95.  
  96.     include utils:sysinc/hardware/intbits.i
  97.  
  98. CD32VER equ 0
  99.  
  100. maxscrdiv EQU 8
  101. max3ddiv EQU 5
  102. playerheight EQU 12*1024
  103. playercrouched EQU 8*1024
  104. scrheight EQU 80
  105.  
  106. ; k/j/m
  107.  
  108. ; 4/8
  109. ; s/x
  110. ; b/n
  111.  
  112. midoffset EQU 104*4*40
  113.  
  114.  
  115.  SECTION Scrn,CODE
  116. OpenLib       equ -552
  117. CloseLib      equ -414
  118.  
  119. INTREQ        equ    $09C
  120. INTENA        equ    $09A
  121. INTENAR    equ    $01C
  122. DMACON        equ    $096
  123.  
  124. SERPER        equ    $032
  125. SERDATR    equ    $018
  126. SERDAT        equ    $030
  127. vhposr        equ $006    
  128. vhposrl    equ $007 
  129.  
  130. bltcon0    equ $40 
  131. bltcon1    equ $42
  132. bltcpt        equ $48
  133. bltbpt        equ $4c
  134. bltapt        equ $50
  135. spr0ctl    equ $142
  136. spr1ctl    equ $14a
  137. spr2ctl    equ $152
  138. spr3ctl    equ $15a
  139. spr4ctl    equ $162
  140. spr5ctl    equ $16a
  141. spr6ctl    equ $172
  142. spr7ctl    equ $17a
  143. spr0pos    equ $140
  144. spr1pos    equ $148
  145. spr2pos    equ $150
  146. spr3pos    equ $158
  147. spr4pos    equ $160
  148. spr5pos    equ $168
  149. spr6pos    equ $170
  150. spr7pos    equ $178
  151. bltdpt         equ $54
  152. bltafwm    equ $44
  153. bltalwm    equ $46
  154. bltsize         equ $58
  155. bltcmod         equ $60
  156. bltbmod         equ $62
  157. bltamod         equ $64
  158. bltdmod         equ $66
  159. diwstart        equ $8e         ; Screen hardware registers.
  160. diwstop         equ $90
  161. ddfstart        equ $92
  162. ddfstop         equ $94
  163. bplcon0         equ $100
  164. bplcon1         equ $102
  165. col0            equ $180
  166. col1            equ $182
  167. col2        equ $184
  168. col3        equ $186
  169. col4        equ $188
  170. col5        equ $18a
  171. col6        equ $18c
  172. col7        equ $18e
  173. col8            equ $190
  174. col9            equ $192
  175. col10           equ $194
  176. col11           equ $196
  177. col12           equ $198
  178. col13           equ $19a
  179. dmacon        equ $96
  180. dmaconr        equ $002
  181. intenar        equ $01c
  182. intena        equ $09a
  183. intreq        equ $09c
  184. intreqr        equ $01e
  185. intreqrl    equ $01f
  186. bpl1pth         equ $e0
  187. bpl1ptl         equ $e2
  188. bpl2pth        equ $e4
  189. bpl2ptl        equ $e6
  190. bpl3pth        equ $e8
  191. bpl3ptl        equ $ea
  192. bpl4pth        equ $ec
  193. bpl4ptl        equ $ee
  194. bpl5pth        equ $f0
  195. bpl5ptl        equ $f2
  196. bpl6pth        equ $f4
  197. bpl6ptl        equ $f6
  198. bpl7pth        equ $f8
  199. bpl7ptl        equ $fa
  200. bpl8pth        equ $fc
  201. bpl8ptl        equ $fe
  202. spr0pth        equ $120
  203. spr0ptl        equ $122
  204. spr1pth        equ $124
  205. spr1ptl        equ $126
  206. spr2pth        equ $128
  207. spr2ptl        equ $12a
  208. spr3pth        equ $12c
  209. spr3ptl        equ $12e
  210. spr4pth        equ $130
  211. spr4ptl        equ $132
  212. spr5pth        equ $134
  213. spr5ptl        equ $136
  214. spr6pth        equ $138
  215. spr6ptl        equ $13a
  216. spr7pth        equ $13c
  217. spr7ptl        equ $13e
  218. adkcon        equ   $09E
  219.  
  220.  
  221. ; move.l #length,d0
  222. ; moveq.l #2,d1    ; chipmem
  223. ; move.l 4.w,a6
  224. ; jsr allocmem(a6) = -198
  225.  
  226. ; tst.l d0
  227. ; beq.s ohbugger
  228. ; move.l d0,memaddr
  229.  
  230.  
  231. ; move.l 4.w,a6
  232. ; move.l memaddr,a1
  233. ; move.l #size,d0
  234. ; jsr freemem(a6) =-210
  235.  
  236.  
  237. ** This waits for the blitter to finish before allowing program
  238. ** execution to continue.
  239.  
  240.  
  241.  include "ab3:source_4000/protsetupdecode"
  242.  
  243. SAVEREGS MACRO
  244.  movem.l d0-d7/a0-a6,-(a7)
  245.  ENDM
  246.  
  247. GETREGS MACRO
  248.  movem.l (a7)+,d0-d7/a0-a6
  249.  ENDM
  250.  
  251.  
  252. WB MACRO
  253. \@bf:
  254.  btst #6,dmaconr(a6)
  255.  bne.s \@bf
  256.  ENDM
  257.  
  258. WBa MACRO
  259. \@bf:
  260.  move.w #\2,$dff180
  261.  
  262.  btst #6,$bfe001
  263.  bne.s \@bf
  264. \@bz:
  265.  
  266.  move.w #$f0f,$dff180
  267.  
  268.  btst #6,$bfe001
  269.  beq.s \@bz
  270.  
  271.  ENDM
  272.  
  273. *Another version for when a6 <> dff000
  274.  
  275. WBSLOW MACRO
  276. \@bf:
  277.  btst #6,$dff000+dmaconr
  278.  bne.s \@bf
  279.  ENDM
  280.  
  281. WT MACRO
  282. \@bf:
  283.  btst #6,(a3)
  284.  bne.s \@bd
  285.  rts
  286. \@bd: 
  287.  btst #4,(a0)
  288.  beq.s \@bf
  289.  ENDM
  290.  
  291. WTNOT MACRO
  292. \@bf:
  293.  btst #6,(a3)
  294.  bne.s \@bd
  295.  rts
  296. \@bd: 
  297.  btst #4,(a0)
  298.  bne.s \@bf
  299.  ENDM
  300.  
  301. **
  302.  
  303.  include "ab3:source_4000/ProtectionProtection"
  304.  include "macros.i"
  305.  include "ab3:source_4000/defs.i"
  306.  
  307. wtclickk:
  308.  btst #6,$bfe001
  309.  bne.s wtclickk
  310.  
  311.  move.w (a0)+,mors
  312.  
  313. ;    FLASHER $0f0,$fff
  314.  
  315. ; PROTFCALC
  316. ; PROTGCALC
  317. ; PROTHCALC
  318. ; PROTICALC
  319. ; PROTKCALC
  320. ; PROTLCALC
  321. ; PROTMCALC
  322.  
  323.  
  324.  
  325.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  326.  move.w intenar(a6),_storeint
  327.  and.w #$c000,_storeint
  328.  
  329.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  330.  
  331.  
  332.  st GOURSEL
  333.  
  334.  move.l 4.w,a6
  335.  lea VBLANKInt(pc),a1
  336.  moveq #INTB_COPER,d0
  337.  jsr _LVOAddIntServer(a6)
  338.  
  339.     IFEQ CD32VER
  340.  move.l 4.w,a6
  341.  lea KEYInt(pc),a1
  342.  moveq #INTB_PORTS,d0
  343.  jsr _LVOAddIntServer(a6)
  344.     ENDC
  345.  
  346.  IFNE CD32VER
  347.  clr.b PLR1KEYS
  348.  clr.b PLR1PATH
  349.  clr.b PLR1MOUSE
  350.  st PLR1JOY
  351.  clr.b PLR2KEYS
  352.  clr.b PLR2PATH
  353.  clr.b PLR2MOUSE
  354.  st PLR2JOY
  355.  ELSE
  356.  st PLR1KEYS
  357.  clr.b PLR1PATH
  358.  clr.b PLR1MOUSE
  359.  clr.b PLR1JOY
  360.  st PLR2KEYS
  361.  clr.b PLR2PATH
  362.  clr.b PLR2MOUSE
  363.  clr.b PLR2JOY
  364.  ENDC
  365.  
  366.  PRSDO
  367.  
  368.  move.l #2,d1    
  369.  move.l #10240*2,d0
  370.  move.l 4.w,a6
  371.  jsr -198(a6)
  372.  move.l d0,TEXTSCRN
  373.  move.w d0,TSPTl
  374.  swap d0
  375.  move.w d0,TSPTh
  376.  
  377.  move.l #nullspr,d0
  378.  move.w d0,txs0l
  379.  move.w d0,txs1l
  380.  move.w d0,txs2l
  381.  move.w d0,txs3l
  382.  move.w d0,txs4l
  383.  move.w d0,txs5l
  384.  move.w d0,txs6l
  385.  move.w d0,txs7l
  386.  swap d0
  387.  move.w d0,txs0h
  388.  move.w d0,txs1h
  389.  move.w d0,txs2h
  390.  move.w d0,txs3h
  391.  move.w d0,txs4h
  392.  move.w d0,txs5h
  393.  move.w d0,txs6h
  394.  move.w d0,txs7h 
  395.  
  396.  move.l #MEMF_FAST,d1    
  397.  move.l #120000,d0
  398.  move.l 4.w,a6
  399.  jsr -198(a6)
  400.  move.l d0,LEVELDATA
  401.  
  402.  move.l #MEMF_FAST,d1    
  403.  move.l #2*320*256,d0
  404.  move.l 4.w,a6
  405.  jsr -198(a6)
  406.  move.l d0,FASTBUFFER
  407.  
  408.  jsr START
  409.  
  410.  rts
  411.  
  412. FASTBUFFER: dc.l 0
  413. _storeint
  414.     dc.w 0
  415.  
  416. * Load level into buffers.
  417.  clr.b doanything
  418.  clr.b dosounds
  419.  
  420. ; DRAW TEXT SCREEN
  421.  
  422. TWEENTEXT:
  423.  
  424.  move.l #LEVELTEXT,a0
  425.  move.w PLOPT,d0
  426.  muls #82*16,d0
  427.  add.l d0,a0
  428.  
  429.  move.w #14,d7
  430.  move.w #0,d0
  431. DOWNTEXT:
  432.  move.l TEXTSCRN,a1
  433.  jsr DRAWLINEOFTEXT
  434.  addq #1,d0
  435.  add.w #82,a0
  436.  dbra d7,DOWNTEXT
  437.  rts
  438.  
  439. FONTADDRS:
  440.  dc.l ENDFONT0,CHARWIDTHS0
  441.  dc.l ENDFONT1,CHARWIDTHS1
  442.  dc.l ENDFONT2,CHARWIDTHS2
  443.  
  444. ENDFONT0:
  445.  incbin "endfont0"
  446. CHARWIDTHS0:
  447.  incbin "charwidths0"
  448. ENDFONT1:
  449.  incbin "endfont1"
  450. CHARWIDTHS1:
  451.  incbin "charwidths1"
  452. ENDFONT2:
  453.  incbin "endfont2"
  454. CHARWIDTHS2:
  455.  incbin "charwidths2"
  456.  
  457.  even
  458.  
  459. DRAWLINEOFTEXT:
  460.  movem.l d0/a0/d7,-(a7)
  461.  
  462.  muls #80*16,d0
  463.  add.l d0,a1    ; screen pointer
  464.  
  465.  move.l #FONTADDRS,a3
  466.  moveq #0,d0
  467.  move.b (a0)+,d0
  468.  move.l (a3,d0.w*8),a2
  469.  move.l 4(a3,d0.w*8),a3
  470.  
  471.  moveq #0,d1    ; width counter:
  472.  move.w #79,d6
  473.  tst.b (a0)+
  474.  beq.s NOTCENTRED
  475.  moveq #-1,d5
  476.  move.l a0,a4
  477.  moveq #0,d2
  478.  moveq #0,d3
  479.  move.w #79,d0    ; number of chars
  480. .addup:
  481.  addq #1,d5
  482.  move.b (a4)+,d2
  483.  move.b -32(a3,d2.w),d4
  484.  add.w d4,d3
  485.  cmp.b #32,d2
  486.  beq.s .DONTPUTIN
  487.  move.w d5,d6
  488.  move.w d3,d1
  489. .DONTPUTIN:
  490.  dbra d0,.addup
  491.  asr.w #1,d1
  492.  neg.w d1
  493.  add.w #320,d1    ; horiz pos of start x
  494.  
  495. NOTCENTRED:
  496.  move.w d6,d7
  497. DOACHAR:
  498.  moveq #0,d2
  499.  move.b (a0)+,d2
  500.  sub.w #32,d2
  501.  moveq #0,d6
  502.  move.b (a3,d2.w),d6
  503.  asl.w #5,d2
  504.  lea (a2,d2.w),a4    ; char font
  505. val SET 0
  506.  REPT 16
  507.  move.w (a4)+,d0
  508.  bfins d0,val(a1){d1:d6}
  509. val SET val+80
  510.  ENDR
  511.  add.w d6,d1
  512.  dbra d7,DOACHAR
  513.  movem.l (a7)+,d0/a0/d7
  514.  rts 
  515.  
  516.  
  517. CLRTWEENSCRN:
  518.  move.l TEXTSCRN,a0
  519.  move.w #(10240/16)-1,d0
  520.  move.l #$0,d1
  521. .lll
  522.  move.l d1,(a0)+
  523.  move.l d1,(a0)+
  524.  move.l d1,(a0)+
  525.  move.l d1,(a0)+
  526.  move.l d1,(a0)+
  527.  move.l d1,(a0)+
  528.  move.l d1,(a0)+
  529.  move.l d1,(a0)+
  530.  dbra d0,.lll
  531.  rts
  532.  
  533. PLAYTHEGAME:
  534.  
  535.  move.w #0,TXTCOLL
  536.  
  537.  bsr CLRTWEENSCRN
  538.  
  539.  cmp.b #'n',mors
  540.  bne.s .notext
  541.  bsr TWEENTEXT
  542. .notext
  543.  
  544. ;charlie 
  545.  move.l #TEXTCOP,$dff080
  546.  
  547.  move.w #$10,d0
  548.  move.w #7,d1
  549.  
  550. .fdup
  551.  move.w d0,TXTCOLL
  552.  add.w #$121,d0
  553. .wtframe:
  554.  btst #5,$dff000+intreqrl
  555.  beq.s .wtframe
  556.  move.w #$0020,$dff000+intreq
  557.  dbra d1,.fdup
  558.  
  559.  jsr INITCOPPERSCRN
  560.  
  561. ; Get level memory.
  562.  
  563.  move.l #1,d1
  564.  move.l #50000,d0
  565.  move.l 4.w,a6
  566.  jsr -198(a6)
  567.  move.l d0,LEVELGRAPHICS
  568.  
  569.  move.l #1,d1
  570.  move.l #40000,d0
  571.  move.l 4.w,a6
  572.  jsr -198(a6)
  573.  move.l d0,LEVELCLIPS
  574.  
  575.  move.l #$dff000,a6
  576.  jsr SETPLAYERS
  577.  
  578. ; move.l #LEVELDATAD,LEVELDATA
  579. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  580. ; move.l #LEVELCLIPSD,LEVELCLIPS
  581.  
  582. ; bra noload
  583.  
  584. *********************************
  585.  
  586.  
  587.  move.l doslib,a6
  588.  move.l #LLname,d1
  589.  move.l #1005,d2
  590.  jsr -30(a6)
  591.  move.l d0,LLhandle
  592.  
  593.  move.l doslib,a6
  594.  move.l d0,d1
  595.  move.l #LINKS,d2
  596.  move.l #10000,d3
  597.  jsr -42(a6)
  598.  
  599.  move.l doslib,a6
  600.  move.l LLhandle,d1
  601.  jsr -36(a6)
  602.  
  603.  ********************************
  604.  
  605.  move.l doslib,a6
  606.  move.l #LLFname,d1
  607.  move.l #1005,d2
  608.  jsr -30(a6)
  609.  move.l d0,LLhandle
  610.  
  611.  move.l doslib,a6
  612.  move.l d0,d1
  613.  move.l #FLYLINKS,d2
  614.  move.l #10000,d3
  615.  jsr -42(a6)
  616.  
  617.  move.l doslib,a6
  618.  move.l LLhandle,d1
  619.  jsr -36(a6)
  620.  
  621.  ************************
  622.  ********
  623.  
  624.  
  625.  move.l doslib,a6
  626.  move.l #LDname,d1
  627.  move.l #1005,d2
  628.  jsr -30(a6)
  629.  move.l d0,LDhandle
  630.  
  631.  move.l doslib,a6
  632.  move.l d0,d1
  633.  move.l LEVELCLIPS,d2
  634.  move.l #40000,d3
  635.  jsr -42(a6)
  636.  
  637.  move.l doslib,a6
  638.  move.l LDhandle,d1
  639.  jsr -36(a6)
  640.  
  641. *************************************
  642.     move.l    LEVELCLIPS,d0
  643.     moveq    #0,d1
  644.     move.l LEVELDATA,a0
  645.     lea    WorkSpace,a1
  646.     lea    $0,a2
  647.     jsr    unLHA
  648. *************************************
  649.  
  650. ********
  651.  
  652.  move.l doslib,a6
  653.  move.l #LGname,d1
  654.  move.l #1005,d2
  655.  jsr -30(a6)
  656.  move.l d0,LGhandle
  657.  
  658.  move.l doslib,a6
  659.  move.l d0,d1
  660.  move.l LEVELCLIPS,d2
  661.  move.l #40000,d3
  662.  jsr -42(a6)
  663.  
  664.  move.l doslib,a6
  665.  move.l LGhandle,d1
  666.  jsr -36(a6)
  667.  
  668. *************************************
  669.     move.l    LEVELCLIPS,d0
  670.     moveq    #0,d1
  671.     move.l LEVELGRAPHICS,a0
  672.     lea    WorkSpace,a1
  673.     lea    $0,a2
  674.     jsr    unLHA
  675. *************************************
  676.  
  677.  
  678. ********
  679.  
  680.  move.l doslib,a6
  681.  move.l #LCname,d1
  682.  move.l #1005,d2
  683.  jsr -30(a6)
  684.  move.l d0,LChandle
  685.  
  686.  move.l doslib,a6
  687.  move.l d0,d1
  688.  move.l #WorkSpace+16384,d2
  689.  move.l #16000,d3
  690.  jsr -42(a6)
  691.  
  692.  move.l doslib,a6
  693.  move.l LChandle,d1
  694.  jsr -36(a6)
  695.  
  696. *************************************
  697.     move.l    #WorkSpace+16384,d0
  698.     moveq    #0,d1
  699.     move.l LEVELCLIPS,a0
  700.     lea    WorkSpace,a1
  701.     lea    $0,a2
  702.     jsr    unLHA
  703. *************************************
  704.  
  705.  
  706. *******
  707.  
  708. noload:
  709.  
  710. ********
  711.  
  712. ; move.l doslib,a6
  713. ; move.l #Prefsname,d1
  714. ; move.l #1005,d2
  715. ; jsr -30(a6)
  716. ; move.l d0,Prefshandle
  717.  
  718. ; move.l doslib,a6
  719. ; move.l d0,d1
  720. ; move.l #Prefsfile,d2
  721. ; move.l #50,d3
  722. ; jsr -42(a6)
  723.  
  724. ; move.l doslib,a6
  725. ; move.l Prefshandle,d1
  726. ; jsr -36(a6)
  727.  
  728. *******
  729.  
  730.  IFNE CD32VER
  731.  move.l doslib,a6
  732.  move.l #115,d1
  733.  jsr -198(a6)
  734.  ENDC
  735.  
  736.  
  737. ; move.l doslib,d0
  738. ; move.l d0,a1
  739. ; move.l 4.w,a6
  740. ; jsr CloseLib(a6)
  741.  
  742.  move.l #$dff000,a6
  743.  
  744. charlie:
  745. ; jmp  ENDGAMESCROLL
  746.  
  747.     move.w #$87c0,dmacon(a6)
  748.  
  749.     move.w    #%1000000000100000,dmacon(a6)
  750.  
  751. ; move.w intenar(a6),saveinters
  752.     
  753.     move.w #%00101111,intena(a6)
  754.  
  755.     move.w #255,adkcon(a6)
  756.  
  757.  
  758. *** Put myself in supervisor mode
  759.  
  760.  bra blag
  761. ; move.l $6c,d0
  762. ; move.l #blag,$6c
  763. ; move.w #$8010,intreq(a6)
  764.  
  765.  rts
  766.  
  767. saveit: ds.l 10
  768. doslibname: dc.b 'dos.library',0
  769.  even
  770. doslib: dc.l 0
  771.  
  772. mors: dc.w 0
  773.  
  774. LDname: dc.b 'ab3:levels/level_'
  775. LEVA:
  776.  dc.b 'a/twolev.bin',0
  777.  even
  778. LDhandle: dc.l 0
  779. LGname: dc.b 'ab3:levels/level_'
  780. LEVB:
  781.  dc.b 'a/twolev.graph.bin',0
  782.  even
  783. LGhandle: dc.l 0
  784. LCname: dc.b 'ab3:levels/level_'
  785. LEVC:
  786.  dc.b 'a/twolev.clips',0
  787.  even
  788. LChandle: dc.l 0
  789. LLname: dc.b 'ab3:levels/level_'
  790. LEVD:
  791.  dc.b 'a/twolev.map',0
  792.  even
  793. LLFname: dc.b 'ab3:levels/level_'
  794. LEVE:
  795.  dc.b 'a/twolev.flymap',0
  796.  even
  797. LLhandle: dc.l 0
  798.  
  799.     cnop    0,4
  800.  
  801. Prefsname: dc.b 'ram:prefs',0
  802.  even
  803. Prefshandle: dc.l 0
  804.  
  805. Prefsfile:
  806.  dc.b 'k4nx'
  807.  ds.b 50
  808.  
  809.  even
  810.  
  811.  cnop 0,4
  812.  
  813. VBLANKInt
  814.  dc.l 0,0
  815.  dc.b NT_INTERRUPT,9
  816.  dc.l Prefsname
  817.  dc.l 0
  818.  dc.l Chan0inter
  819.  
  820.  
  821. KEYInt
  822.  dc.l 0,0
  823.  dc.b NT_INTERRUPT,127
  824.  dc.l Prefsname
  825.  dc.l 0
  826.  dc.l key_interrupt
  827.  
  828.  
  829. blag:
  830. ; move.w #$10,intreq(a6)
  831. ; move.l d0,$6c
  832. ; move.w #$7fff,intena(a6)
  833.  
  834. ; move.w #$20,$dff1dc
  835.  
  836. ; move.l 4.w,a6
  837. ; lea VBLANKInt(pc),a1
  838. ; moveq #INTB_COPER,d0
  839. ; jsr _LVOAddIntServer(a6)
  840.  
  841. ****************************
  842. * Initialize level
  843. ****************************
  844. * Poke all clip offsets into
  845. * correct bit of level data.
  846. ****************************
  847.  move.l LEVELGRAPHICS,a0
  848.  move.l 12(a0),a1
  849.  add.l a0,a1
  850.  move.l a1,ZoneGraphAdds
  851.  move.l (a0),a1
  852.  add.l a0,a1
  853.  move.l a1,DoorData
  854.  move.l 4(a0),a1
  855.  add.l a0,a1
  856.  move.l a1,LiftData
  857.  move.l 8(a0),a1
  858.  add.l a0,a1
  859.  move.l a1,SwitchData
  860.  adda.w #16,a0
  861.  move.l a0,ZoneAdds
  862.  
  863.  move.l LEVELDATA,a4
  864.  lea 160*10(a4),a1
  865.  
  866.  lea 54(a1),a2
  867.  move.l a2,CPtPos
  868.  move.w 12(a1),NumCPts
  869.  move.w 14(a1),NumLevPts
  870.  
  871.  move.l 16+6(a1),a2
  872.  add.l a4,a2
  873.  move.l a2,Points
  874.  move.w 8+6(a1),d0
  875.  lea 4(a2,d0.w*4),a2
  876.  move.l a2,PointBrights
  877.  move.w 16(a1),d0
  878.  addq #1,d0
  879.  muls #80,d0
  880.  add.l d0,a2
  881.  move.l a2,ZoneBorderPts
  882.  
  883.  move.l 20+6(a1),a2
  884.  add.l a4,a2
  885.  move.l a2,FloorLines
  886.  move.l 24+6(a1),a2
  887.  add.l a4,a2
  888.  move.l a2,ObjectData
  889. *****************************************
  890. * Just for charles
  891.  
  892. ; move.w #$6060,6(a2)
  893. ; move.l #$d0000,8(a2)
  894. ; sub.w #40,4(a2)
  895. ; move.w #45*256+45,14(a2)
  896. ****************************************
  897.  move.l 28+6(a1),a2
  898.  add.l a4,a2
  899.  move.l a2,PlayerShotData
  900.  move.l 32+6(a1),a2
  901.  add.l a4,a2
  902.  move.l a2,NastyShotData
  903.  
  904.  add.l #64*20,a2
  905.  move.l a2,OtherNastyData
  906.  
  907.  move.l 36+6(a1),a2
  908.  add.l a4,a2
  909.  move.l a2,ObjectPoints  
  910.  move.l 40+6(a1),a2
  911.  add.l a4,a2
  912.  move.l a2,PLR1_Obj
  913.  move.l 44+6(a1),a2
  914.  add.l a4,a2
  915.  move.l a2,PLR2_Obj
  916.  move.w 14+6(a1),NumObjectPoints
  917.  
  918. ; bra noclips
  919.   
  920.  move.l LEVELCLIPS,a2
  921.  moveq #0,d0
  922.  move.w 10+6(a1),d7    ;numzones
  923.  move.w d7,NUMZONES
  924. assignclips:
  925.  move.l (a0)+,a3
  926.  add.l a4,a3    ; pointer to a zone
  927.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  928. dowholezone:
  929.  tst.w (a3)
  930.  blt.s nomorethiszone
  931.  tst.w 2(a3)
  932.  blt.s thisonenull
  933.  
  934.  move.l d0,d1
  935.  asr.l #1,d1
  936.  move.w d1,2(a3)
  937.  
  938. findnextclip:
  939.  cmp.w #-2,(a2,d0.l)
  940.  beq.s foundnextclip
  941.  addq.l #2,d0
  942.  bra.s findnextclip
  943. foundnextclip
  944.  addq.l #2,d0
  945.  
  946. thisonenull:
  947.  addq #8,a3 
  948.  bra.s dowholezone
  949. nomorethiszone:
  950.  dbra d7,assignclips
  951.  
  952.  lea (a2,d0.l),a2
  953.  move.l a2,CONNECT_TABLE
  954.  
  955. noclips:
  956.  
  957. * Put in addresses of glowything
  958.  
  959.  
  960. ************************************
  961.  
  962. ; cmp.b #'k',Prefsfile
  963. ; bne.s nkb
  964.  
  965. ;nkb:
  966. ; cmp.b #'m',Prefsfile
  967. ; bne.s nmc
  968. ; clr.b PLR1KEYS
  969. ; clr.b PLR1PATH
  970. ; st PLR1MOUSE
  971. ; clr.b PLR1JOY
  972. ;nmc:
  973. ; cmp.b #'j',Prefsfile
  974. ; bne.s njc
  975. ; clr.b PLR1KEYS
  976. ; clr.b PLR1PATH
  977. ; clr.b PLR1MOUSE
  978. ; st PLR1JOY
  979. ;njc:
  980.  
  981.  clr.b PLR1_StoodInTop
  982.  move.l #playerheight,PLR1s_height
  983.  
  984.  move.l #empty,pos1LEFT
  985.  move.l #empty,pos2LEFT
  986.  move.l #empty,pos1RIGHT
  987.  move.l #empty,pos2RIGHT
  988.  move.l #empty,pos0LEFT
  989.  move.l #empty,pos3LEFT
  990.  move.l #empty,pos0RIGHT
  991.  move.l #empty,pos3RIGHT
  992.  move.l #emptyend,Samp0endLEFT
  993.  move.l #emptyend,Samp1endLEFT
  994.  move.l #emptyend,Samp0endRIGHT
  995.  move.l #emptyend,Samp1endRIGHT
  996.  move.l #emptyend,Samp2endLEFT
  997.  move.l #emptyend,Samp3endLEFT
  998.  move.l #emptyend,Samp2endRIGHT
  999.  move.l #emptyend,Samp3endRIGHT
  1000.  
  1001.  
  1002.  move.l #nullline,d0
  1003.  move.w d0,n1l
  1004.  swap d0
  1005.  move.w d0,n1h
  1006.  
  1007.  move.l Panel,d0
  1008.  move.w d0,p1l
  1009.  swap d0
  1010.  move.w d0,p1h
  1011.  swap d0
  1012.  add.l #40,d0
  1013.  move.w d0,p2l
  1014.  swap d0
  1015.  move.w d0,p2h
  1016.  swap d0
  1017.  add.l #40,d0
  1018.  move.w d0,p3l
  1019.  swap d0
  1020.  move.w d0,p3h
  1021.  swap d0
  1022.  add.l #40,d0
  1023.  move.w d0,p4l
  1024.  swap d0
  1025.  move.w d0,p4h
  1026.  swap d0
  1027.  add.l #40,d0
  1028.  move.w d0,p5l
  1029.  swap d0
  1030.  move.w d0,p5h
  1031.  swap d0
  1032.  add.l #40,d0
  1033.  move.w d0,p6l
  1034.  swap d0
  1035.  move.w d0,p6h
  1036.  swap d0
  1037.  add.l #40,d0
  1038.  move.w d0,p7l
  1039.  swap d0
  1040.  move.w d0,p7h
  1041.  swap d0
  1042.  add.l #40,d0
  1043.  move.w d0,p8l
  1044.  swap d0
  1045.  move.w d0,p8h
  1046.  
  1047. *******************************
  1048. * TIMER SCREEN SETUP
  1049. ; move.l #TimerScr,d0
  1050. ; move.w d0,p1l
  1051. ; swap d0
  1052. ; move.w d0,p1h
  1053. ; move.w #$1201,Panelcon
  1054.  
  1055.  move.l #borders,d0
  1056.  move.w d0,s0l
  1057.  swap d0
  1058.  move.w d0,s0h
  1059.  move.l #borders+2592,d0
  1060.  move.w d0,s1l
  1061.  swap d0
  1062.  move.w d0,s1h
  1063.  move.l #borders+2592*2,d0
  1064.  move.w d0,s2l
  1065.  swap d0
  1066.  move.w d0,s2h
  1067.  move.l #borders+2592*3,d0
  1068.  move.w d0,s3l
  1069.  swap d0
  1070.  move.w d0,s3h
  1071.  
  1072.  move.l #nullspr,d0
  1073.  move.w d0,s0l
  1074.  move.w d0,s1l
  1075.  move.w d0,s2l
  1076.  move.w d0,s3l
  1077.  
  1078.  move.w d0,s4l
  1079.  move.w d0,s5l
  1080.  move.w d0,s6l
  1081.  move.w d0,s7l
  1082.  swap d0
  1083.  
  1084.  move.w d0,s0h
  1085.  move.w d0,s1h
  1086.  move.w d0,s2h
  1087.  move.w d0,s3h
  1088.  
  1089.  move.w d0,s4h
  1090.  move.w d0,s5h
  1091.  move.w d0,s6h
  1092.  move.w d0,s7h 
  1093.  
  1094.  
  1095.  move.w #52*256+64,borders
  1096.  move.w #212*256+0,borders+8
  1097.  move.w #52*256+64,borders+2592
  1098.  move.w #212*256+128,borders+8+2592
  1099.  move.w #52*256+192,borders+2592*2
  1100.  move.w #212*256+0,borders+8+2592*2
  1101.  move.w #52*256+192,borders+2592*3
  1102.  move.w #212*256+128,borders+8+2592*3
  1103.  
  1104.  move.l #FacePlace,d0
  1105.  move.w d0,f1l
  1106.  swap d0
  1107.  move.w d0,f1h
  1108.  move.l #FacePlace+32*24,d0
  1109.  move.w d0,f2l
  1110.  swap d0
  1111.  move.w d0,f2h
  1112.  move.l #FacePlace+32*24*2,d0
  1113.  move.w d0,f3l
  1114.  swap d0
  1115.  move.w d0,f3h
  1116.  move.l #FacePlace+32*24*3,d0
  1117.  move.w d0,f4l
  1118.  swap d0
  1119.  move.w d0,f4h
  1120.  move.l #FacePlace+32*24*4,d0
  1121.  move.w d0,f5l
  1122.  swap d0
  1123.  move.w d0,f5h
  1124.   
  1125.  
  1126.  move.l #bigfield,d0
  1127.  move.w d0,ocl
  1128.  swap d0
  1129.  move.w d0,och
  1130.  
  1131.  bset.b #1,$bfe001
  1132.  
  1133. ; jmp stuff
  1134. ;endstuff:
  1135.  
  1136.  move.w #$00ff,$dff09e
  1137.  
  1138. ; move.l #Blurbfield,$dff080
  1139.  
  1140.  move.w #0,d0
  1141.  
  1142.  move.l #scrn,d0
  1143.  move.w d0,pl1l
  1144.  swap d0
  1145.  move.w d0,pl1h
  1146.  
  1147.  move.l #scrn+10240,d0
  1148.  move.w d0,pl2l
  1149.  swap d0
  1150.  move.w d0,pl2h
  1151.  
  1152.  move.l #scrn+10240*2,d0
  1153.  move.w d0,pl3l
  1154.  swap d0
  1155.  move.w d0,pl3h
  1156.  
  1157.  move.l #scrn+10240*3,d0
  1158.  move.w d0,pl4l
  1159.  swap d0
  1160.  move.w d0,pl4h
  1161.  
  1162.  move.l #scrn+10240*4,d0
  1163.  move.w d0,pl5l
  1164.  swap d0
  1165.  move.w d0,pl5h
  1166.  
  1167.  move.l #scrn+10240*5,d0
  1168.  move.w d0,pl6l
  1169.  swap d0
  1170.  move.w d0,pl6h
  1171.  
  1172.  move.l #scrn+10240*6,d0
  1173.  move.w d0,pl7l
  1174.  swap d0
  1175.  move.w d0,pl7h
  1176.  
  1177.  move.l #scrn+10240*7,d0
  1178.  move.w d0,pl8l
  1179.  swap d0
  1180.  move.w d0,pl8h
  1181.  
  1182.  
  1183. ****************************
  1184.  jsr INITPLAYER
  1185. ; bsr initobjpos
  1186. ****************************
  1187.  
  1188.  
  1189.  move.l #$dff000,a6
  1190.  
  1191.  move.l #null,$dff0a0
  1192.  move.w #100,$dff0a4
  1193.  move.w #443,$dff0a6
  1194.  move.w #63,$dff0a8
  1195.  
  1196.  move.l #null2,$dff0b0
  1197.  move.w #100,$dff0b4
  1198.  move.w #443,$dff0b6
  1199.  move.w #63,$dff0b8
  1200.  
  1201.  move.l #null4,$dff0c0
  1202.  move.w #100,$dff0c4
  1203.  move.w #443,$dff0c6
  1204.  move.w #63,$dff0c8
  1205.  
  1206.  move.l #null3,$dff0d0
  1207.  move.w #100,$dff0d4
  1208.  move.w #443,$dff0d6
  1209.  move.w #63,$dff0d8
  1210.  
  1211.  move.l #tab,a1
  1212.  move.w #64,d7
  1213.  move.w #0,d6
  1214. outerlop
  1215.  move.l #pretab,a0
  1216.  move.w #255,d5
  1217. scaledownlop:
  1218.  move.b (a0)+,d0
  1219.  ext.w d0
  1220.  ext.l d0
  1221.  muls d6,d0
  1222.  asr.l #6,d0
  1223.  move.b d0,(a1)+
  1224.  dbra d5,scaledownlop
  1225.  addq #1,d6
  1226.  dbra d7,outerlop
  1227.  
  1228.  move.l #$dff000,a6
  1229.  
  1230.  move.w #$c018,intena(a6)
  1231.  
  1232.  move.w #$f,dmacon(a6)
  1233.  move.w #$820f,dmacon(a6)
  1234.  
  1235. ; bsr protinit
  1236.  
  1237.  
  1238. ; move.w #$20,$1dc(a6)
  1239.  
  1240.  move.w #$0,$dff034
  1241.  move.w #0,Conditions
  1242.  
  1243.  cmp.b #'n',mors
  1244.  beq.s .nokeys
  1245.  move.w #%111111111111,Conditions
  1246. .nokeys:
  1247.  
  1248.  move.l #KeyMap,a5
  1249.  clr.b $45(a5)
  1250.  
  1251.  move.l #ingame,mt_data
  1252.  clr.b UseAllChannels
  1253.  
  1254. ; cmp.b #'b',Prefsfile+3
  1255. ; bne.s .noback
  1256. ; jsr mt_init
  1257. ;.noback:
  1258. ;
  1259. ; clr.b CHANNELDATA
  1260. ; clr.b CHANNELDATA+8
  1261. ; clr.b CHANNELDATA+16
  1262. ; clr.b CHANNELDATA+24
  1263. ;
  1264. ; cmp.b #'b',Prefsfile+3
  1265. ; bne.s noreserve
  1266. ;
  1267. ; st CHANNELDATA
  1268. ; st CHANNELDATA+8
  1269. ; st CHANNELDATA+16
  1270. ; st CHANNELDATA+24
  1271. ;noreserve: 
  1272.  
  1273. ; st CHANNELDATA
  1274. ; st CHANNELDATA+8
  1275.  
  1276.  move.l SampleList+6*8,pos0LEFT
  1277.  move.l SampleList+6*8+4,Samp0endLEFT
  1278.  move.l #playerheight,PLR1s_targheight
  1279.  move.l #playerheight,PLR1s_height
  1280.  move.l #playerheight,PLR2s_targheight
  1281.  move.l #playerheight,PLR2s_height
  1282.  
  1283. ; cmp.b #'n',mors
  1284. ; beq.s nohandshake
  1285. ;
  1286. ; move.b #%11011000,$bfd200
  1287. ; move.b #%00010000,$bfd000
  1288. ;waitloop:
  1289. ; btst.b #4,$bfd000
  1290. ; bne.s waitloop
  1291. ; move.b #%11000000,$bfd200
  1292.  
  1293. ;wtmouse:
  1294. ; btst #6,$bfe001
  1295. ; bne.s wtmouse
  1296.  
  1297. ;nohandshake:
  1298.  
  1299. ; jmp end
  1300.  
  1301. ; move.l COPSCRN1,drawpt
  1302. ; move.l COPSCRN2,olddrawpt
  1303.  
  1304.  jsr CLEARKEYBOARD
  1305. ; jsr MAKEBACKROUT
  1306.  
  1307.  clr.b MASTERQUITTING
  1308.  
  1309.  cmp.b #'n',mors
  1310.  seq SLAVEQUITTING
  1311.  
  1312.  move.w #127,PLR2_energy
  1313.  move.w #200,PLAYERONEHEALTH
  1314.  
  1315. ; move.l #ANOTHERSUP,$80
  1316. ; trap #0
  1317. ; rts
  1318. ;
  1319. ;ANOTHERSUP:
  1320.  
  1321.  move.l $4.w,a6
  1322.  jsr _LVOSuperState(a6)
  1323.  move.l d0,SSTACK
  1324.  
  1325.  CACHE_FREEZE_OFF d2
  1326.  
  1327. ; charlie
  1328. ; DATA_CACHE_ON d2
  1329.  
  1330.  DataCacheOn
  1331.  
  1332.  move.l $4.w,a6
  1333.  move.l SSTACK,d0
  1334.  jsr _LVOUserState(a6)
  1335.  
  1336.  move.l #0,hitcol
  1337.  
  1338.  cmp.b #'n',mors
  1339.  bne.s NOCLTXT
  1340.  
  1341.  move.b #0,lastpressed
  1342. .wtpress
  1343.  btst #6,$bfe001
  1344.  beq.s CLOSETXT
  1345.  btst #7,$bfe001
  1346.  beq.s CLOSETXT
  1347.  tst.b lastpressed
  1348.  beq.s .wtpress
  1349.  
  1350. CLOSETXT:
  1351.  
  1352.  move.w #$8f8,d0
  1353.  move.w #7,d1
  1354.  
  1355. .fdup
  1356.  move.w d0,TXTCOLL
  1357.  sub.w #$121,d0
  1358. .wtframe:
  1359.  btst #5,$dff000+intreqrl
  1360.  beq.s .wtframe
  1361.  move.w #$0020,$dff000+intreq
  1362.  dbra d1,.fdup
  1363.  
  1364.  move.w #0,TXTCOLL
  1365.  
  1366. NOCLTXT:
  1367.  
  1368.  
  1369.  
  1370.     move.l    4.w,a6
  1371.     jsr    _LVOForbid(a6)
  1372. ;    jsr    _LVODisable(a6)
  1373.  
  1374.  
  1375. ;    move.w    #%0111111111111111,intena+$dff000
  1376. ;    move.w    #%1000000011111111,intena+$dff000
  1377.  
  1378.  
  1379. ;charlie 
  1380.  move.l #PALETTEBIT,$dff084
  1381.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1382.  
  1383.  
  1384.  clr.b PLR1_Ducked
  1385.  clr.b PLR2_Ducked
  1386.  clr.b p1_ducked
  1387.  clr.b p2_ducked
  1388.  
  1389. ********************************************
  1390.  
  1391. ;    jmp docredits
  1392.  
  1393. ********************************************
  1394.  
  1395.  
  1396.  st doanything
  1397.  st dosounds
  1398.  
  1399.  jsr CLRNASTYMEM
  1400.  
  1401.  move.l #COMPACTMAP,a0
  1402.  move.l a0,LASTZONE
  1403.  move.w #255,d0
  1404. .clrmap
  1405.  move.l #0,(a0)+
  1406.  dbra d0,.clrmap
  1407.  
  1408.  move.l #COMPACTMAP,a0
  1409.  move.l #BIGMAP,a1
  1410.  
  1411.  bra NOALLWALLS
  1412.  
  1413.  move.l ZoneGraphAdds,a2
  1414. DOALLWALLS:
  1415.  move.l (a2),d0
  1416.  beq.s nomorezones
  1417.  move.l d0,a3
  1418.  
  1419.  addq #8,a2
  1420.  
  1421.  add.l LEVELGRAPHICS,a3
  1422.  addq #2,a3
  1423.  move.l a1,a4
  1424.  
  1425. ; DOLOWERROOM
  1426.  
  1427. innerwalls:
  1428.  move.b (a3),d1
  1429.  move.b 1(a3),d0
  1430.  bne doneinner
  1431.  
  1432.  tst.b d1
  1433.  blt noid
  1434.  
  1435.  move.b d1,d3
  1436.  and.w #15,d1
  1437.  
  1438.  moveq #0,d0
  1439.  move.w d1,d2
  1440.  add.w d1,d1
  1441.  add.w d2,d1
  1442.  addq #1,d1
  1443.  bset d1,d0
  1444.  btst #4,d3
  1445.  beq.s .nodoor
  1446.  addq #1,d1
  1447.  bset d1,d0
  1448. .nodoor
  1449.  
  1450.  or.l d0,(a0)
  1451.  
  1452.  move.w 2(a3),(a4)
  1453.  move.w 4(a3),2(a4)
  1454.  
  1455. noid:
  1456.  
  1457.  add.w #30,a3
  1458.  addq #4,a4
  1459.  
  1460.  bra innerwalls
  1461.  
  1462. doneinner:
  1463.  
  1464.  add.w #40,a1
  1465.  addq #4,a0
  1466.  
  1467.  bra DOALLWALLS
  1468. nomorezones:
  1469.  
  1470. NOALLWALLS
  1471.  
  1472.  move.w #96,MIDDLEX
  1473.  move.w #192,RIGHTX
  1474.  move.w #160,BOTTOMY
  1475.  move.w #80,TOTHEMIDDLE
  1476.  clr.b FULLSCR
  1477.  
  1478.  st PLAYERONEGUNS+1
  1479.  
  1480. lop:
  1481.  
  1482.  move.b FULLSCRTEMP,d0
  1483.  move.b FULLSCR,d1
  1484.  eor.b d1,d0
  1485.  beq.s .notswapscr2
  1486.  
  1487.  move.b FULLSCRTEMP,FULLSCR
  1488.  beq.s .notswapscr3
  1489.  
  1490.  move.w #144,MIDDLEX
  1491.  move.w #288,RIGHTX
  1492.  move.w #240,BOTTOMY
  1493.  move.w #120,TOTHEMIDDLE
  1494.  move.l SCRNSHOWPT,a0
  1495.  jsr WIPEDISPLAY
  1496.  move.l SCRNDRAWPT,a0
  1497.  jsr WIPEDISPLAY
  1498.  
  1499.  bra.s .notswapscr2
  1500.  
  1501. .notswapscr3:
  1502.  move.w #96,MIDDLEX
  1503.  move.w #192,RIGHTX
  1504.  move.w #160,BOTTOMY
  1505.  move.w #80,TOTHEMIDDLE
  1506.  move.l SCRNSHOWPT,a0
  1507.  jsr WIPEDISPLAY
  1508.  move.l SCRNDRAWPT,a0
  1509.  jsr WIPEDISPLAY
  1510. .notswapscr2:
  1511.  
  1512.  
  1513.  btst #6,$bfe001
  1514. ;charlie bne.b .nocop
  1515.  
  1516. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1517.  
  1518. .nocop
  1519.  
  1520.  move.l #KeyMap,a5
  1521.  
  1522.  cmp.b #'n',mors
  1523.  bne .nopause
  1524.  tst.b $19(a5)
  1525.  beq.s .nopause
  1526.  clr.b doanything
  1527.  
  1528. .waitrel:
  1529.  
  1530.  tst.b PLR1JOY
  1531.  beq.s .NOJOY
  1532.  jsr _ReadJoy1
  1533. .NOJOY
  1534.  
  1535.  tst.b $19(a5)
  1536.  bne.s .waitrel
  1537.  
  1538.  bsr PAUSEOPTS
  1539.  
  1540.  
  1541.  st doanything
  1542. .nopause: 
  1543.  
  1544.  move.l hitcol,d0
  1545.  move.l d0,d1
  1546.  add.l #PALETTEBIT,d1
  1547.  tst.l d0
  1548.  beq.s nofadedownhc
  1549.  sub.l #2116,d0
  1550.  move.l d0,hitcol
  1551. nofadedownhc:
  1552.  
  1553.  move.l d1,a0
  1554.  move.l #PALETTESPACE,a1
  1555.  move.l #(2116/4)-2,d0
  1556. putinpal:
  1557.  move.l (a0)+,(a1)+
  1558.  dbra d0,putinpal
  1559.  
  1560.  st READCONTROLS
  1561.  move.l #$dff000,a6
  1562.  
  1563.  
  1564.  cmp.b #'n',mors
  1565.  beq .nopause
  1566.  
  1567.  move.b SLAVEPAUSE,d0
  1568.  or.b MASTERPAUSE,d0
  1569.  beq.s .nopause
  1570.  clr.b doanything
  1571.  
  1572.  move.l #KeyMap,a5
  1573. .waitrel:
  1574.  
  1575.  
  1576.  cmp.b #'s',mors
  1577.  beq.s .RE2
  1578.  tst.b PLR1JOY
  1579.  beq.s .NOJOY
  1580.  jsr _ReadJoy1
  1581.  bra .RE1
  1582. .RE2:
  1583.  tst.b PLR2JOY
  1584.  beq.s .NOJOY
  1585.  jsr _ReadJoy2
  1586. .RE1
  1587. .NOJOY:
  1588.  tst.b $19(a5)
  1589.  bne.s .waitrel
  1590.  
  1591.  bsr PAUSEOPTS
  1592.  
  1593.  cmp.b #'m',mors
  1594.  bne.s .slavelast
  1595.  Jsr SENDFIRST
  1596.  bra .masfirst
  1597. .slavelast
  1598.  Jsr RECFIRST
  1599. .masfirst:
  1600.  clr.b SLAVEPAUSE
  1601.  clr.b MASTERPAUSE
  1602.  st doanything
  1603.  
  1604. .nopause: 
  1605.  
  1606.  
  1607.  
  1608.  move.l drawpt,d0
  1609.  move.l olddrawpt,drawpt
  1610.  move.l d0,olddrawpt
  1611.  
  1612.  move.l SCRNDRAWPT,d0
  1613.  move.l SCRNSHOWPT,SCRNDRAWPT
  1614.  move.l d0,SCRNSHOWPT
  1615.  
  1616.  
  1617.  
  1618.  
  1619. ; move.l d0,$dff084    
  1620.  move.l drawpt,a3
  1621. ; move.l COPSCRNBUFF,a3
  1622.  adda.w #10,a3
  1623.  move.l a3,frompt
  1624.  add.l #104*4*40,a3
  1625.  move.l a3,midpt
  1626.  
  1627.  cmp.b #'s',mors
  1628.  beq.s nowaitslave
  1629.  
  1630. waitfortop:
  1631.  
  1632.  btst.b #0,intreqrl(a6)
  1633.  beq.b waitfortop
  1634.  
  1635.  move.w #$1,intreq(a6)
  1636.  move.l #PLR1_GunData,GunData
  1637.  move.b PLR1_GunSelected,GunSelected
  1638.  bra waitmaster
  1639.  
  1640. nowaitslave:
  1641.  move.l #PLR2_GunData,GunData
  1642.  move.b PLR2_GunSelected,GunSelected
  1643. waitmaster:
  1644.  
  1645.  move.l d0,d1
  1646.  move.l d1,d0
  1647.  move.w d0,pl1l
  1648.  swap d0
  1649.  move.w d0,pl1h
  1650.  
  1651.  add.l #10240,d1
  1652.  move.l d1,d0
  1653.  move.w d0,pl2l
  1654.  swap d0
  1655.  move.w d0,pl2h
  1656.  
  1657.  add.l #10240,d1
  1658.  move.l d1,d0
  1659.  move.w d0,pl3l
  1660.  swap d0
  1661.  move.w d0,pl3h
  1662.  
  1663.  add.l #10240,d1
  1664.  move.l d1,d0
  1665.  move.w d0,pl4l
  1666.  swap d0
  1667.  move.w d0,pl4h
  1668.  
  1669.  add.l #10240,d1
  1670.  move.l d1,d0
  1671.  move.w d0,pl5l
  1672.  swap d0
  1673.  move.w d0,pl5h
  1674.  
  1675.  add.l #10240,d1
  1676.  move.l d1,d0
  1677.  move.w d0,pl6l
  1678.  swap d0
  1679.  move.w d0,pl6h
  1680.  
  1681.  add.l #10240,d1
  1682.  move.l d1,d0
  1683.  move.w d0,pl7l
  1684.  swap d0
  1685.  move.w d0,pl7h
  1686.  
  1687.  add.l #10240,d1
  1688.  move.l d1,d0
  1689.  move.w d0,pl8l
  1690.  swap d0
  1691.  move.w d0,pl8h 
  1692.  
  1693.  move.l #SMIDDLEY,a0
  1694.  movem.l (a0)+,d0/d1
  1695.  move.l d0,MIDDLEY
  1696.  move.l d1,MIDDLEY+4
  1697.  
  1698.  move.l waterpt,a0
  1699.  move.l (a0)+,watertouse
  1700.  cmp.l #endwaterlist,a0
  1701.  blt.s okwat
  1702.  move.l #waterlist,a0
  1703. okwat:
  1704.  move.l a0,waterpt
  1705.  
  1706.  add.w #640,wtan
  1707.  and.w #8191,wtan
  1708.  add.l #1,wateroff
  1709.  and.l #$3fff3fff,wateroff
  1710.  
  1711.  moveq #0,d0
  1712.  move.b GunSelected,d0
  1713.  move.l LINKFILE,a6
  1714.  add.l #GunBulletTypes,a6
  1715.  move.w (a6,d0.w*8),d0
  1716.  
  1717.  move.l #PLAYERONEAMMO,a6
  1718.  move.w (a6,d0.w*2),d0
  1719.  move.w d0,Ammo
  1720.  
  1721.  move.l PLR1_xoff,OLDX1
  1722.  move.l PLR1_zoff,OLDZ1
  1723.  move.l PLR2_xoff,OLDX2
  1724.  move.l PLR2_zoff,OLDZ2
  1725.  
  1726.  move.l #$dff000,a6
  1727.  
  1728.  cmp.b #'s',mors
  1729.  beq ASlaveShouldWaitOnHisMaster
  1730.  
  1731.  cmp.b #'n',mors
  1732.  bne NotOnePlayer
  1733.  
  1734.  move.w PLAYERONEHEALTH,Energy
  1735.  move.w FramesToDraw,TempFrames
  1736.  cmp.w #15,TempFrames
  1737.  blt.s .okframe
  1738.  move.w #15,TempFrames
  1739. .okframe:
  1740.  move.w #0,FramesToDraw
  1741.  
  1742. *********************************************
  1743. *********** TAKE THIS OUT *******************
  1744. *********************************************
  1745.  
  1746.  move.l CHEATPTR,a4
  1747.  add.l #200000,a4
  1748.  moveq #0,d0
  1749.  move.b (a4),d0
  1750.  
  1751.  move.l #KeyMap,a5
  1752.  tst.b (a5,d0.w)
  1753.  beq.s .nocheat
  1754.  
  1755.  addq #1,a4
  1756.  cmp.l #ENDCHEAT,a4
  1757.  blt.s .nocheat
  1758.  cmp.w #0,CHEATNUM
  1759.  beq.s .nocheat
  1760.  sub.w #1,CHEATNUM
  1761.  move.l #CHEATFRAME,a4
  1762.  move.w #127,PLR1_energy
  1763.  bsr EnergyBar
  1764. .nocheat
  1765.  
  1766.  sub.l #200000,a4
  1767.  move.l a4,CHEATPTR
  1768.  
  1769. **********************************************
  1770. **********************************************
  1771. **********************************************
  1772.  
  1773.  move.l PLR1s_xoff,p1_xoff
  1774.  move.l PLR1s_zoff,p1_zoff
  1775.  move.l PLR1s_yoff,p1_yoff
  1776.  move.l PLR1s_height,p1_height
  1777.  move.w PLR1s_angpos,p1_angpos
  1778.  move.w PLR1_bobble,p1_bobble
  1779.  move.b PLR1_clicked,p1_clicked
  1780.  move.b PLR1_fire,p1_fire
  1781.  clr.b PLR1_clicked
  1782.  move.b PLR1_SPCTAP,p1_spctap
  1783.  clr.b PLR1_SPCTAP
  1784.  move.b PLR1_Ducked,p1_ducked
  1785.  move.b PLR1_GunSelected,p1_gunselected
  1786.  
  1787.  bsr PLR1_Control
  1788.  
  1789.  move.l PLR1_Roompt,a0
  1790.  move.l ToZoneRoof(a0),SplitHeight
  1791.  move.w p1_xoff,THISPLRxoff
  1792.  move.w p1_zoff,THISPLRzoff
  1793.  
  1794.  
  1795.  move.l #$60000,p2_yoff
  1796.  move.l PLR2_Obj,a0
  1797.  move.w #-1,GraphicRoom(a0)
  1798.  move.w #-1,12(a0)
  1799.  move.b #0,17(a0)
  1800.  move.l #BollocksRoom,PLR2_Roompt
  1801.  
  1802.  bra donetalking
  1803.  
  1804. NotOnePlayer:
  1805.  move.l #KeyMap,a5
  1806.  tst.b $19(a5)
  1807.  sne MASTERPAUSE
  1808.  
  1809. *********************************
  1810.  move.w PLAYERONEHEALTH,Energy
  1811. ; change this back
  1812. *********************************
  1813.  
  1814.  jsr SENDFIRST
  1815.  
  1816.  move.w FramesToDraw,TempFrames
  1817.  cmp.w #15,TempFrames
  1818.  blt.s .okframe
  1819.  move.w #15,TempFrames
  1820. .okframe:
  1821.  move.w #0,FramesToDraw
  1822.  
  1823.  move.l PLR1s_xoff,p1_xoff
  1824.  move.l PLR1s_zoff,p1_zoff
  1825.  move.l PLR1s_yoff,p1_yoff
  1826.  move.l PLR1s_height,p1_height
  1827.  move.w PLR1s_angpos,p1_angpos
  1828.  move.w PLR1_bobble,p1_bobble
  1829.  move.b PLR1_clicked,p1_clicked
  1830.  clr.b PLR1_clicked
  1831.  move.b PLR1_fire,p1_fire
  1832.  move.b PLR1_SPCTAP,p1_spctap
  1833.  clr.b PLR1_SPCTAP
  1834.  move.b PLR1_Ducked,p1_ducked
  1835.  move.b PLR1_GunSelected,p1_gunselected
  1836.  
  1837.  move.l p1_xoff,d0
  1838.  jsr SENDFIRST
  1839.  move.l d0,p2_xoff
  1840.  
  1841.  move.l p1_zoff,d0
  1842.  jsr SENDFIRST
  1843.  move.l d0,p2_zoff 
  1844.  
  1845.  move.l p1_yoff,d0
  1846.  jsr SENDFIRST
  1847.  move.l d0,p2_yoff
  1848.   
  1849.  move.l p1_height,d0
  1850.  jsr SENDFIRST
  1851.  move.l d0,p2_height
  1852.  
  1853.  move.w p1_angpos,d0
  1854.  swap d0
  1855.  move.w p1_bobble,d0
  1856.  jsr SENDFIRST
  1857.  move.w d0,p2_bobble
  1858.  swap d0
  1859.  move.w d0,p2_angpos
  1860.  
  1861.  
  1862.  move.w TempFrames,d0
  1863.  swap d0
  1864.  move.b p1_spctap,d0
  1865.  lsl.w #8,d0
  1866.  move.b p1_clicked,d0
  1867.  jsr SENDFIRST
  1868.  move.b d0,p2_clicked
  1869.  lsr.w #8,d0
  1870.  move.b d0,p2_spctap
  1871.  
  1872.  
  1873.  move.w Rand1,d0
  1874.  swap d0
  1875.  move.b p1_ducked,d0
  1876.  lsl.w #8,d0
  1877.  move.b p1_gunselected,d0
  1878.  jsr SENDFIRST
  1879.  move.b d0,p2_gunselected
  1880.  lsr.w #8,d0
  1881.  move.b d0,p2_ducked
  1882.  
  1883.  move.b p1_fire,d0
  1884.  lsl.w #8,d0
  1885.  move.b MASTERQUITTING,d0
  1886.  or.b d0,SLAVEQUITTING
  1887.  swap d0
  1888.  move.b MASTERPAUSE,d0
  1889.  or.b d0,SLAVEPAUSE
  1890.  jsr SENDFIRST
  1891.  or.b d0,MASTERPAUSE
  1892.  or.b d0,SLAVEPAUSE
  1893.  swap d0
  1894.  or.b d0,SLAVEQUITTING
  1895.  or.b d0,MASTERQUITTING
  1896.  lsr.w #8,d0
  1897.  move.b d0,p2_fire
  1898.  
  1899.  bsr PLR1_Control
  1900.  bsr PLR2_Control
  1901.  move.l PLR1_Roompt,a0
  1902.  move.l ToZoneRoof(a0),SplitHeight
  1903.  move.w p1_xoff,THISPLRxoff
  1904.  move.w p1_zoff,THISPLRzoff
  1905.  
  1906.  bra donetalking
  1907.  
  1908. ASlaveShouldWaitOnHisMaster:
  1909.  
  1910.  move.l #KeyMap,a5
  1911.  tst.b $19(a5)
  1912.  sne SLAVEPAUSE
  1913.  
  1914.  
  1915.  move.w PLR2_energy,Energy
  1916.  
  1917.  jsr RECFIRST
  1918.  
  1919.  move.l PLR2s_xoff,p2_xoff
  1920.  move.l PLR2s_zoff,p2_zoff
  1921.  move.l PLR2s_yoff,p2_yoff
  1922.  move.l PLR2s_height,p2_height
  1923.  move.w PLR2s_angpos,p2_angpos
  1924.  move.w PLR2_bobble,p2_bobble
  1925.  move.b PLR2_clicked,p2_clicked
  1926.  clr.b PLR2_clicked
  1927.  move.b PLR2_fire,p2_fire
  1928.  move.b PLR2_SPCTAP,p2_spctap
  1929.  clr.b PLR2_SPCTAP
  1930.  move.b PLR2_Ducked,p2_ducked
  1931.  move.b PLR2_GunSelected,p2_gunselected
  1932.  
  1933.  move.l p2_xoff,d0
  1934.  jsr RECFIRST
  1935.  move.l d0,p1_xoff
  1936.  
  1937.  move.l p2_zoff,d0
  1938.  jsr RECFIRST
  1939.  move.l d0,p1_zoff
  1940.  
  1941.  move.l p2_yoff,d0
  1942.  jsr RECFIRST
  1943.  move.l d0,p1_yoff
  1944.  
  1945.  move.l p2_height,d0
  1946.  jsr RECFIRST
  1947.  move.l d0,p1_height
  1948.  
  1949.  move.w p2_angpos,d0
  1950.  swap d0
  1951.  move.w p2_bobble,d0
  1952.  jsr RECFIRST
  1953.  move.w d0,p1_bobble
  1954.  swap d0
  1955.  move.w d0,p1_angpos
  1956.  
  1957.  
  1958.  move.b p2_spctap,d0
  1959.  lsl.w #8,d0
  1960.  move.b p2_clicked,d0
  1961.  jsr RECFIRST
  1962.  move.b d0,p1_clicked
  1963.  lsr.w #8,d0
  1964.  move.b d0,p1_spctap
  1965.  swap d0
  1966.  move.w d0,TempFrames
  1967.  
  1968.  
  1969.  move.b p2_ducked,d0
  1970.  lsl.w #8,d0
  1971.  move.b p2_gunselected,d0
  1972.  jsr RECFIRST
  1973.  move.b d0,p1_gunselected
  1974.  lsr.w #8,d0
  1975.  move.b d0,p1_ducked
  1976.  swap d0
  1977.  move.w d0,Rand1
  1978.  
  1979.  move.b p2_fire,d0
  1980.  lsl.w #8,d0
  1981.  move.b SLAVEQUITTING,d0
  1982.  or.b d0,MASTERQUITTING
  1983.  swap d0
  1984.  move.b SLAVEPAUSE,d0
  1985.  or.b d0,MASTERPAUSE
  1986.  jsr RECFIRST
  1987.  or.b d0,MASTERPAUSE
  1988.  or.b d0,SLAVEPAUSE
  1989.  swap d0
  1990.  or.b d0,SLAVEQUITTING
  1991.  or.b d0,MASTERQUITTING
  1992.  lsr.w #8,d0
  1993.  move.b d0,p1_fire
  1994.  
  1995.  
  1996.  bsr PLR1_Control
  1997.  bsr PLR2_Control
  1998.  move.w p2_xoff,THISPLRxoff
  1999.  move.w p2_zoff,THISPLRzoff
  2000.  move.l PLR2_Roompt,a0
  2001.  move.l ToZoneRoof(a0),SplitHeight
  2002.  
  2003. donetalking:
  2004.  
  2005.  
  2006.  
  2007.  move.l #ZoneBrightTable,a1
  2008.  move.l ZoneAdds,a2
  2009.  move.l PLR2_ListOfGraphRooms,a0
  2010. ; move.l PLR2_PointsToRotatePtr,a5
  2011.  move.l a0,a5
  2012.  cmp.b #'s',mors
  2013.  beq.s doallz
  2014.  move.l PLR1_ListOfGraphRooms,a0
  2015. ; move.l PLR1_PointsToRotatePtr,a5
  2016.  move.l a0,a5 
  2017. doallz
  2018.  move.w (a0),d0
  2019.  blt.s doneallz
  2020.  add.w #8,a0
  2021.  
  2022.  move.l (a2,d0.w*4),a3
  2023.  add.l LEVELDATA,a3
  2024.  move.w ToZoneBrightness(a3),d2
  2025.  
  2026.  blt.s justbright
  2027.  move.w d2,d3
  2028.  lsr.w #8,d3
  2029.  tst.b d3
  2030.  beq.s justbright
  2031.  
  2032.  move.l #BrightAnimTable,a4
  2033.  move.w -2(a4,d3.w*2),d2
  2034.  
  2035. justbright:
  2036.  muls #32,d2
  2037.  divs #20,d2
  2038.  move.w d2,(a1,d0.w*4)
  2039.  
  2040.  move.w ToUpperBrightness(a3),d2
  2041.  
  2042.  blt.s justbright2
  2043.  move.w d2,d3
  2044.  lsr.w #8,d3
  2045.  tst.b d3
  2046.  beq.s justbright2
  2047.  
  2048.  move.l #BrightAnimTable,a4
  2049.  move.w -2(a4,d3.w*2),d2
  2050.  
  2051. justbright2:
  2052.  
  2053.  muls #32,d2
  2054.  divs #20,d2
  2055.  move.w d2,2(a1,d0.w*4)
  2056.  
  2057.  bra doallz
  2058.  
  2059. doneallz:
  2060.  
  2061.  move.l PointBrights,a2
  2062.  move.l #CurrentPointBrights,a3
  2063. justtheone:
  2064.  move.w (a5),d0
  2065.  blt whythehell
  2066.  addq #8,a5
  2067.  
  2068.  muls #40,d0
  2069.  
  2070.  move.w #39,d7
  2071.  
  2072. allinzone:
  2073.  move.w (a2,d0.w*2),d2
  2074.  
  2075.  tst.b d2
  2076.  blt.s .justbright
  2077.  move.w d2,d3
  2078.  lsr.w #8,d3
  2079.  tst.b d3
  2080.  beq.s .justbright
  2081.  
  2082.  move.w d3,d4
  2083.  and.w #$f,d3
  2084.  lsr.w #4,d4
  2085.  add.w #1,d4
  2086.  move.l #BrightAnimTable,a0
  2087.  move.w -2(a0,d3.w*2),d3
  2088.  ext.w d2
  2089.  sub.w d2,d3
  2090.  muls d4,d3
  2091.  asr.w #4,d3
  2092.  add.w d3,d2
  2093.  
  2094. .justbright:
  2095.  ext.w d2
  2096.  
  2097.  muls #31,d2
  2098.  divs #20,d2
  2099.  bge.s .itspos
  2100.  sub.w #600,d2
  2101. .itspos:
  2102.  add.w #300,d2
  2103.  
  2104.  move.w d2,(a3,d0.w*2)
  2105.  addq #1,d0
  2106.  dbra d7,allinzone
  2107.  
  2108.  bra justtheone
  2109.  
  2110. whythehell:
  2111.  
  2112.  move.l PLR1_Roompt,a0
  2113.  move.l #CurrentPointBrights,a1
  2114.  move.l ZoneBorderPts,a2
  2115.  move.w (a0),d0
  2116.  muls #10,d0
  2117.  lea (a2,d0.w*2),a2
  2118.  lea (a1,d0.w*8),a1
  2119.  
  2120.  moveq #9,d7
  2121.  moveq #0,d0
  2122.  moveq #0,d1
  2123. findaverage:
  2124.  tst.w (a2)+
  2125.  blt.s .foundaverage
  2126.  addq #1,d0
  2127.  move.w (a1)+,d2
  2128.  bge.s .okpos
  2129.  neg.w d2
  2130. .okpos:
  2131.  add.w d2,d1
  2132.  
  2133.  dbra d7,findaverage
  2134.  
  2135. .foundaverage:
  2136.  
  2137.  ext.l d1
  2138.  divs d0,d1
  2139.  sub.w #300,d1
  2140.  move.w d1,PLR1_RoomBright
  2141.  
  2142.  cmp.b #'n',mors
  2143.  beq nosee
  2144.  
  2145.  move.l PLR1_Roompt,FromRoom
  2146.  move.l PLR2_Roompt,ToRoom
  2147.  move.w p1_xoff,Viewerx
  2148.  move.w p1_zoff,Viewerz
  2149.  move.l p1_yoff,d0
  2150.  asr.l #7,d0
  2151.  move.w d0,Viewery
  2152.  move.w p2_xoff,Targetx
  2153.  move.w p2_zoff,Targetz
  2154.  move.l p2_yoff,d0
  2155.  asr.l #7,d0
  2156.  move.w d0,Targety
  2157.  move.b PLR1_StoodInTop,ViewerTop
  2158.  move.b PLR2_StoodInTop,TargetTop
  2159.  jsr CanItBeSeen
  2160.  
  2161.  move.l PLR1_Obj,a0
  2162.  move.b CanSee,d0
  2163.  and.b #2,d0
  2164.  move.b d0,17(a0)
  2165.  move.l PLR2_Obj,a0
  2166.  move.b CanSee,d0
  2167.  and.b #1,d0
  2168.  move.b d0,17(a0)
  2169.  
  2170. nosee:
  2171.  
  2172.  move.l PLR1_Obj,a0
  2173.  move.b #5,16(a0)
  2174.  move.l PLR2_Obj,a0
  2175.  move.b #11,16(a0)
  2176.  
  2177.  move.w TempFrames,d0
  2178.  add.w d0,p1_holddown
  2179.  cmp.w #30,p1_holddown
  2180.  blt.s oklength
  2181.  move.w #30,p1_holddown
  2182. oklength:
  2183.  
  2184.  tst.b p1_fire
  2185.  bne.s okstillheld
  2186.  sub.w d0,p1_holddown
  2187.  bge.s okstillheld
  2188.  move.w #0,p1_holddown
  2189.  
  2190. okstillheld:
  2191.  
  2192.  move.w TempFrames,d0
  2193.  add.w d0,p2_holddown
  2194.  
  2195.  cmp.w #30,p2_holddown
  2196.  blt.s oklength2
  2197.  move.w #30,p2_holddown
  2198. oklength2:
  2199.  
  2200.  
  2201.  tst.b p2_fire
  2202.  bne.s okstillheld2
  2203.  sub.w d0,p2_holddown
  2204.  bge.s okstillheld2
  2205.  move.w #0,p2_holddown
  2206. okstillheld2:
  2207.  
  2208. ***** CHECKING LIGHT *********
  2209.  
  2210. ; move.w #-20,d0
  2211. ; move.w PLR1_xoff,d1
  2212. ; move.w PLR1_zoff,d2
  2213. ; move.l PLR1_Roompt,a0
  2214. ; move.w (a0),d3
  2215. ; move.w PLR1_angpos,d4
  2216. ;
  2217. ; jsr BRIGHTENPOINTSANGLE
  2218.  
  2219. ******************************
  2220.  
  2221. ; move.l #PLR1_GunData,a1
  2222. ; move.w p1_holddown,d0
  2223. ; move.w #50,10+32*3(a1)
  2224. ; move.l #PLR2_GunData,a1
  2225. ; move.w p2_holddown,d0
  2226. ; move.w #50,10+32*3(a1)
  2227.  
  2228. ******************************************
  2229. ******************************************
  2230.  
  2231.  move.w TempFrames,d1
  2232.  bgt.s noze
  2233.  moveq #1,d1
  2234. noze:
  2235.  
  2236.  move.w PLR1_xoff,d0
  2237.  sub.w OLDX1,d0
  2238.  asl.w #4,d0
  2239.  ext.l d0
  2240.  divs d1,d0
  2241.  move.w d0,XDIFF1
  2242.  move.w PLR2_xoff,d0
  2243.  sub.w OLDX2,d0
  2244.  asl.w #4,d0
  2245.  ext.l d0
  2246.  divs d1,d0
  2247.  move.w d0,XDIFF2
  2248.  move.w PLR1_zoff,d0
  2249.  sub.w OLDZ1,d0
  2250.  asl.w #4,d0
  2251.  ext.l d0
  2252.  divs d1,d0
  2253.  move.w d0,ZDIFF1
  2254.  move.w PLR2_zoff,d0
  2255.  sub.w OLDZ2,d0
  2256.  asl.w #4,d0
  2257.  ext.l d0
  2258.  divs d1,d0
  2259.  move.w d0,ZDIFF2
  2260.  
  2261.  cmp.b #'s',mors
  2262.  beq.s ImPlayer2OhYesIAm
  2263.  bsr USEPLR1
  2264.  bra IWasPlayer1
  2265.  
  2266. ImPlayer2OhYesIAm:
  2267.  bsr USEPLR2
  2268. IWasPlayer1:
  2269.  
  2270.  
  2271.  cmp.b #'s',mors
  2272.  beq drawplayer2
  2273.  
  2274.  move.w #0,scaleval
  2275.  
  2276.  move.l PLR1_xoff,xoff
  2277.  move.l PLR1_yoff,yoff
  2278.  move.l PLR1_zoff,zoff
  2279.  move.w PLR1_angpos,angpos
  2280.  move.w PLR1_cosval,cosval
  2281.  move.w PLR1_sinval,sinval
  2282.  
  2283.  
  2284.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2285.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2286.  move.l PLR1_Roompt,Roompt
  2287.  
  2288.  bsr OrderZones
  2289.  jsr objmoveanim
  2290.  bsr EnergyBar
  2291.  bsr AmmoBar
  2292.  
  2293. ;********************************************
  2294. ;************* Do reflection ****************
  2295. ;
  2296. ; move.l ListOfGraphRooms,a0
  2297. ; move.l ZoneAdds,a1
  2298. ;checkwaterheights
  2299. ; move.w (a0),d0
  2300. ; blt allzonesdone
  2301. ; addq #8,a0
  2302. ; move.l (a1,d0.w*4),a2
  2303. ; 
  2304. ; add.l LEVELDATA,a2
  2305. ; 
  2306. ; move.l ToZoneWater(a2),d0
  2307. ; cmp.l ToZoneFloor(a2),d0
  2308. ; blt.s WEHAVEAHEIGHT
  2309. ; 
  2310. ; bra.s checkwaterheights
  2311. ;
  2312. ;WEHAVEAHEIGHT:
  2313. ;
  2314. ; sub.l yoff,d0
  2315. ; blt.s underwater
  2316. ; 
  2317. ; add.l d0,d0
  2318. ; add.l d0,yoff
  2319. ; 
  2320. ; move.l FASTBUFFER2,FASTBUFFER
  2321. ; move.w #0,leftclip
  2322. ; move.w RIGHTX,rightclip
  2323. ; move.w #0,deftopclip
  2324. ; move.w #BOTTOMY/2,defbotclip
  2325. ; move.w #0,topclip
  2326. ; move.w #BOTTOMY/2,botclip
  2327. ;
  2328. ; clr.b DOANYWATER 
  2329. ; 
  2330. ; bsr DrawDisplay
  2331. ; 
  2332. ;allzonesdone:
  2333. ;underwater:
  2334.  
  2335. ********************************************
  2336.  
  2337.  st DOANYWATER
  2338.  
  2339.  move.l PLR1_yoff,yoff
  2340.  
  2341.  move.w #0,leftclip
  2342.  move.w RIGHTX,rightclip
  2343.  move.w #0,deftopclip
  2344.  move.w WIDESCRN,d0
  2345.  add.w d0,deftopclip
  2346.  
  2347.  move.w BOTTOMY,defbotclip
  2348.  sub.w d0,defbotclip
  2349.  move.w #0,topclip
  2350.  add.w d0,topclip
  2351.  move.w BOTTOMY,botclip
  2352.  sub.w d0,botclip
  2353. ; sub.l #10*104*4,frompt
  2354. ; sub.l #10*104*4,midpt
  2355.  
  2356. * Subroom loop
  2357.  
  2358.  bsr DrawDisplay 
  2359.  
  2360.  bra nodrawp2
  2361.  
  2362. drawplayer2
  2363.  
  2364.  move.w #0,scaleval
  2365.  move.l PLR2_xoff,xoff
  2366.  move.l PLR2_yoff,yoff
  2367.  move.l PLR2_zoff,zoff
  2368.  move.w PLR2_angpos,angpos
  2369.  move.w PLR2_cosval,cosval
  2370.  move.w PLR2_sinval,sinval 
  2371.  
  2372.  
  2373.  
  2374.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2375.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2376.  move.l PLR2_Roompt,Roompt
  2377.  
  2378.  
  2379.  bsr OrderZones
  2380.  jsr objmoveanim
  2381.  bsr EnergyBar
  2382.  bsr AmmoBar
  2383.  
  2384.  move.w WIDESCRN,d0
  2385.  
  2386.  move.w #0,leftclip
  2387.  move.w RIGHTX,rightclip
  2388.  move.w #0,deftopclip
  2389.  add.w d0,deftopclip
  2390.  move.w BOTTOMY,defbotclip
  2391.  sub.w d0,defbotclip
  2392.  move.w #0,topclip
  2393.  add.w d0,topclip
  2394.  move.w BOTTOMY,botclip
  2395.  sub.w d0,botclip
  2396.  
  2397.  bsr DrawDisplay
  2398.  
  2399. nodrawp2:
  2400.  
  2401. ***************************************** 
  2402. * Copy from copbuff to chip ram
  2403.  
  2404.  
  2405. ; move.l drawpt,a3
  2406. ; adda.w #10,a3
  2407. ; move.l COPSCRNBUFF,a2
  2408. ; move.w #2,d6
  2409. ; adda.w #10,a2
  2410. ;COPYOUT
  2411. ; move.w #31,d0
  2412. ;COPYDOWN1:
  2413. ; move.w #3,d1
  2414. ; move.l a2,a4
  2415. ; move.l a3,a5
  2416. ;.inlop1:
  2417. ;val SET 0
  2418. ; REPT 20
  2419. ; move.w val(a4),val(a5)
  2420. ;val SET val+104*4
  2421. ; ENDR
  2422. ; adda.l #104*4*20,a4
  2423. ; adda.l #104*4*20,a5
  2424. ; dbra d1,.inlop1
  2425. ; addq #4,a2
  2426. ; addq #4,a3
  2427. ; dbra d0,COPYDOWN1
  2428. ; addq #4,a2
  2429. ; addq #4,a3
  2430. ; dbra d6,COPYOUT 
  2431.  
  2432.  tst.b MAPON
  2433.  beq.s .nomap
  2434.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2435. .nomap
  2436.  
  2437.  move.w WIDESCRN,d7
  2438.  
  2439.  tst.b FULLSCR
  2440.  beq nobigconv
  2441.  
  2442.  move.l FASTBUFFER,a0
  2443. ; add.l #320*2*20,a0
  2444.  move.w d7,d6
  2445.  muls #320,d6
  2446.  add.l d6,a0
  2447.  move.l SCRNDRAWPT,a1
  2448.  move.w d7,d6
  2449.  muls #40,d6
  2450.  add.l d6,a1
  2451.  add.l #2,a1
  2452.  move.l #(288/8)-1,d0
  2453.  move.l #239,d1
  2454.  sub.w d7,d1
  2455.  sub.w d7,d1
  2456.  blt nochunk
  2457.  move.w #(320-288),d2
  2458.  move.w #4,d3
  2459.  
  2460.  bra donebigconv
  2461.  
  2462. nobigconv:
  2463.  
  2464.  move.l FASTBUFFER,a0
  2465.  move.w d7,d6
  2466.  muls #320,d6
  2467.  add.l d6,a0
  2468.  move.l SCRNDRAWPT,a1
  2469.  add.l #8+40*20,a1
  2470.  move.w d7,d6
  2471.  muls #40,d6
  2472.  add.l d6,a1
  2473.  move.l #(192/8)-1,d0
  2474.  move.l #159,d1
  2475.  sub.w d7,d1
  2476.  sub.w d7,d1
  2477.  blt nochunk
  2478.  move.w #(320-192),d2
  2479.  move.w #16,d3
  2480. donebigconv
  2481.  
  2482.  tst.b DOUBLEHEIGHT
  2483.  beq.s .nodoub
  2484.  asr.w #1,d1
  2485.  blt nochunk
  2486.  add.w #320,d2
  2487.  add.w #40,d3
  2488. .nodoub:
  2489.  
  2490.  move.b DOUBLEWIDTH,d4
  2491.  
  2492.  jsr CHUNKYTOPLANAR 
  2493.  
  2494. nochunk:
  2495.  
  2496.  move.l #KeyMap,a5
  2497.  tst.b $4a(a5)
  2498.  beq .nosmallscr
  2499.  
  2500.  move.l #0,d7
  2501.  move.l #0,d6
  2502.  tst.b FULLSCR
  2503.  bne.s .attop
  2504.  move.l #40*20,d7
  2505.  move.l #40*60,d6
  2506. .attop:
  2507.  
  2508.  move.w WIDESCRN,d0
  2509.  move.l SCRNDRAWPT,a0
  2510.  add.l d7,a0
  2511.  muls #40,d0
  2512.  add.l d0,a0
  2513.  bsr CLRTWOLINES
  2514.  move.w WIDESCRN,d0
  2515.  move.l SCRNSHOWPT,a0
  2516.  add.l d7,a0
  2517.  muls #40,d0
  2518.  add.l d0,a0
  2519.  bsr CLRTWOLINES
  2520.  
  2521.  add.w #2,WIDESCRN
  2522.  
  2523.  move.l SCRNDRAWPT,a0
  2524.  add.l #240*40,a0
  2525.  sub.l d6,a0
  2526.  move.w WIDESCRN,d0
  2527.  muls #40,d0
  2528.  sub.l d0,a0
  2529.  bsr CLRTWOLINES
  2530.  move.l SCRNSHOWPT,a0
  2531.  sub.l d6,a0
  2532.  add.l #240*40,a0
  2533.  move.w WIDESCRN,d0
  2534.  muls #40,d0
  2535.  sub.l d0,a0
  2536.  bsr CLRTWOLINES
  2537.  
  2538. .nosmallscr
  2539.  
  2540.  tst.b $5e(a5)
  2541.  beq.s .nobigscr
  2542.  tst.w WIDESCRN
  2543.  ble.s .nobigscr
  2544.  
  2545.  sub.w #2,WIDESCRN
  2546.  
  2547. .nobigscr
  2548.  
  2549.  
  2550.  tst.b (a5)
  2551.  beq.s .nosavescrn
  2552.  
  2553. ; not.b USEDOUG
  2554.  
  2555.  jsr SAVETHESCREEN
  2556.  
  2557. .nosavescrn:
  2558.  
  2559.  tst.b $5b(a5)
  2560.  beq notdoubheight
  2561.  tst.b LASTDH
  2562.  bne notdoubheight2
  2563.  st LASTDH 
  2564.  
  2565.  move.w #0,d0
  2566.  move.w #0,d1
  2567.  
  2568.  not.b DOUBLEHEIGHT
  2569.  beq.s singlepixheight
  2570.  move.w #-40,d0
  2571.  move.w #40,d1
  2572.  
  2573. singlepixheight:
  2574.  
  2575.  move.l #SCRMODULOS,a0
  2576.  move.w #119,d2
  2577. putinmode:
  2578.  move.w d0,6(a0)
  2579.  move.w d0,6+4(a0)
  2580.  move.w d1,6+16(a0)
  2581.  move.w d1,6+16+4(a0)
  2582.  add.w #32,a0
  2583.  dbra d2,putinmode
  2584.  
  2585.  bra notdoubheight2
  2586.  
  2587. notdoubheight:
  2588.  clr.b LASTDH
  2589. notdoubheight2
  2590.  
  2591.  tst.b $5a(a5)
  2592.  beq.s notdoubwidth
  2593.  tst.b LASTDW
  2594.  bne notdoubwidth2
  2595.  st LASTDW
  2596.  not.b DOUBLEWIDTH
  2597.  bra.s notdoubwidth2
  2598.  
  2599. notdoubwidth:
  2600.  clr.b LASTDW
  2601. notdoubwidth2:
  2602.  
  2603. ***************************************** 
  2604.  move.l PLR2_Roompt,a0
  2605.  move.l #WorkSpace,a1
  2606.  clr.l (a1)
  2607.  clr.l 4(a1)
  2608.  clr.l 8(a1)
  2609.  clr.l 12(a1)
  2610.  clr.l 16(a1)
  2611.  clr.l 20(a1)
  2612.  clr.l 24(a1)
  2613.  clr.l 28(a1)
  2614.  
  2615.  cmp.b #'n',mors
  2616.  beq.s plr1only
  2617.  
  2618.  lea ToListOfGraph(a0),a0
  2619. .doallrooms:
  2620.  move.w (a0),d0
  2621.  blt.s .allroomsdone
  2622.  addq #8,a0
  2623.  move.w d0,d1
  2624.  asr.w #3,d0
  2625.  bset d1,(a1,d0.w)
  2626.  bra .doallrooms
  2627. .allroomsdone:
  2628.  
  2629. plr1only:
  2630.  
  2631.  move.l PLR1_Roompt,a0
  2632.  lea ToListOfGraph(a0),a0
  2633. .doallrooms2:
  2634.  move.w (a0),d0
  2635.  blt.s .allroomsdone2
  2636.  addq #8,a0
  2637.  move.w d0,d1
  2638.  asr.w #3,d0
  2639.  bset d1,(a1,d0.w)
  2640.  bra .doallrooms2
  2641. .allroomsdone2:
  2642.  
  2643.  move.l #%000001,d7
  2644.  lea TEAMWORK,a2
  2645.  move.l ObjectData,a0
  2646.  sub.w #64,a0
  2647. .doallobs:
  2648.  add.w #64,a0
  2649.  move.w (a0),d0
  2650.  blt.s .allobsdone
  2651.  move.w 12(a0),d0
  2652.  blt.s .doallobs
  2653.  move.w d0,d1
  2654.  asr.w #3,d0
  2655.  btst d1,(a1,d0.w)
  2656.  bne.s .worryobj
  2657.  move.b 16(a0),d0
  2658.  btst d0,d7
  2659.  beq.s .doallobs
  2660.  moveq #0,d0
  2661.  move.b teamnumber(a0),d0
  2662.  blt.s .doallobs
  2663.  asl.w #4,d0
  2664.  tst.w SEENBY(a2,d0.w)
  2665.  blt.s .doallobs
  2666. .worryobj:
  2667.  or.b #127,worry(a0)
  2668.  bra.s .doallobs
  2669. .allobsdone:
  2670.  
  2671.  
  2672.  
  2673. ; move.l #brightentab,a0
  2674. ; move.l frompt,a3
  2675. ; adda.w #(4*33)+(104*4*20),a3
  2676. ; move.w #20,d7
  2677. ; move.w #20,d6
  2678. ;horl:
  2679. ; move.w d6,d5
  2680. ; move.l a3,a1
  2681. ;vertl
  2682. ; move.w (a1),d0
  2683. ; move.w (a0,d0.w*2),(a1)
  2684. ; addq #4,a1
  2685. ; dbra d5,vertl
  2686. ; adda.w #104*4,a3
  2687. ; dbra d7,horl
  2688.  
  2689.  move.l #$dff000,a6
  2690.  
  2691. ; move.w #$300,col0(a6)
  2692.  
  2693.  move.l #KeyMap,a5
  2694.  tst.b $45(a5)
  2695.  beq.s noend
  2696.  
  2697.  cmp.b #'s',mors
  2698.  beq plr2quit 
  2699.  
  2700.  st MASTERQUITTING
  2701.  bra noend
  2702.  
  2703. plr2quit:
  2704.  st SLAVEQUITTING
  2705. noend:
  2706.  
  2707.  tst.b MASTERQUITTING
  2708.  beq.s .noquit
  2709.  tst.b SLAVEQUITTING
  2710.  bne endnomusic
  2711. .noquit
  2712.  
  2713.  cmp.b #'n',mors
  2714.  bne.s noexit
  2715.  move.l PLR1_Roompt,a0
  2716.  move.w (a0),d0
  2717.  move.w PLOPT,d1
  2718.  move.l #ENDZONES,a0
  2719.  cmp.w (a0,d1.w*2),d0
  2720.  
  2721. ; change this for quick exit, charlie
  2722. zzzz:
  2723. ; bra end
  2724.  
  2725.  beq end
  2726. noexit:
  2727.  
  2728.  tst.w PLAYERONEHEALTH
  2729.  ble end
  2730.  tst.w PLR2_energy
  2731.  ble end
  2732.  
  2733. ; move.l SwitchData,a0
  2734. ; tst.b 24+8(a0)
  2735. ; bne end
  2736.   
  2737. ; JSR STOPTIMER
  2738.  
  2739.  
  2740.  bra lop
  2741.  
  2742. CLRTWOLINES:
  2743.  
  2744.  moveq #0,d1
  2745.  move.w #7,d2
  2746. .ccc
  2747.  move.l d1,2(a0)
  2748.  move.l d1,6(a0)
  2749.  move.l d1,10(a0)
  2750.  move.l d1,14(a0)
  2751.  move.l d1,18(a0)
  2752.  move.l d1,22(a0)
  2753.  move.l d1,26(a0)
  2754.  move.l d1,30(a0)
  2755.  move.l d1,34(a0)
  2756.  move.l d1,2+40(a0)
  2757.  move.l d1,6+40(a0)
  2758.  move.l d1,10+40(a0)
  2759.  move.l d1,14+40(a0)
  2760.  move.l d1,18+40(a0)
  2761.  move.l d1,22+40(a0)
  2762.  move.l d1,26+40(a0)
  2763.  move.l d1,30+40(a0)
  2764.  move.l d1,34+40(a0)
  2765.  add.l #10240,a0
  2766.  dbra d2,.ccc
  2767.  rts
  2768.  
  2769.  
  2770. LASTDH: dc.b 0
  2771. LASTDW: dc.b 0
  2772. WIDESCRN: dc.w 0
  2773. TRRANS: dc.w 0
  2774. DOANYWATER: dc.w 0
  2775.  
  2776. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2777.  
  2778.  move.l #SHADINGTABLE,a4
  2779. ; add.w MAPBRIGHT,a4
  2780.  
  2781.  move.l #KeyMap,a5
  2782.  tst.b $50(a5)
  2783.  beq.s .nobrighter
  2784.  tst.w MAPBRIGHT
  2785.  beq.s .nobrighter
  2786.  
  2787.  sub.w #1,MAPBRIGHT
  2788.  
  2789. .nobrighter:
  2790.  
  2791.  tst.b $51(a5)
  2792.  beq.s .nodimmer
  2793.  cmp.w #7,MAPBRIGHT
  2794.  bge.s .nodimmer
  2795.  
  2796.  add.w #1,MAPBRIGHT
  2797.  
  2798. .nodimmer:
  2799.  
  2800.  move.l #Rotated,a1
  2801.  move.l #COMPACTMAP,a2
  2802.  move.l #BIGMAP-40,a3
  2803.  
  2804. preshow:
  2805.  add.w #40,a3
  2806.  
  2807. SHOWMAP:
  2808.  move.l (a2)+,d5
  2809.  move.l a2,d7
  2810.  cmp.l LASTZONE,d7
  2811.  bgt shownmap
  2812.  
  2813.  tst.l d5
  2814.  beq.s preshow
  2815.  
  2816.  move.w #9,d7
  2817. wallsofzone
  2818.  
  2819.  asr.l #1,d5
  2820.  bcs.s WALLSEEN
  2821.  
  2822.  asr.l #1,d5
  2823.  bcs.s WALLMAPPED
  2824.  
  2825.  asr.l #1,d5
  2826.  addq #4,a3
  2827.  bra.s DECIDEDWALL
  2828.  
  2829. WALLMAPPED:
  2830.  move.w #$b00,d4
  2831.  asr.l #1,d5
  2832.  bcc.s .notadoor
  2833.  move.w #$e00,d4
  2834. .notadoor
  2835.  
  2836.  st TRRANS
  2837.  
  2838.  bra.s DECIDEDCOLOUR
  2839.  
  2840. WALLSEEN:
  2841.  
  2842.  clr.b TRRANS
  2843.  
  2844.  move.w #255,d4
  2845.  asr.l #2,d5
  2846.  bcc.s .notadoor
  2847.  move.w #254,d4
  2848. .notadoor
  2849. DECIDEDCOLOUR:
  2850.  move.w (a3)+,d6
  2851.  move.l (a1,d6.w*8),d0
  2852.  asr.l #7,d0
  2853.  add.w mapxoff,d0
  2854.  move.w 6(a1,d6.w*8),d1
  2855.  add.w mapzoff,d1
  2856.  move.w (a3)+,d6
  2857.  move.l (a1,d6.w*8),d2
  2858.  asr.l #7,d2
  2859.  add.w mapxoff,d2
  2860.  move.w 6(a1,d6.w*8),d3
  2861.  add.w mapzoff,d3
  2862.  
  2863.  neg.w d1
  2864.  neg.w d3
  2865.  
  2866.  movem.l d7/d5,-(a7)
  2867.  bsr CLIPANDDRAW
  2868.  movem.l (a7)+,d7/d5
  2869.  
  2870. DECIDEDWALL:
  2871.  
  2872.  dbra d7,wallsofzone
  2873.  bra SHOWMAP
  2874.  
  2875. shownmap:
  2876.  
  2877.  clr.b TRRANS
  2878.  
  2879.  move.w mapxoff,d0
  2880.  move.w mapzoff,d1
  2881.  neg.w d1
  2882.  move.w d0,d2
  2883.  move.w d1,d3
  2884.  sub.w #128,d1
  2885.  add.w #128,d3
  2886.  move.w #250,d4
  2887.  bsr CLIPANDDRAW
  2888.  
  2889.  move.w mapxoff,d0
  2890.  move.w mapzoff,d1
  2891.  neg.w d1
  2892.  move.w d0,d2
  2893.  move.w d1,d3
  2894.  sub.w #128,d1
  2895.  sub.w #32,d3
  2896.  sub.w #64,d2
  2897.  move.w #250,d4
  2898.  bsr CLIPANDDRAW
  2899.  
  2900.  move.w mapxoff,d0
  2901.  move.w mapzoff,d1
  2902.  neg.w d1
  2903.  move.w d0,d2
  2904.  move.w d1,d3
  2905.  sub.w #128,d1
  2906.  sub.w #32,d3
  2907.  add.w #64,d2
  2908.  move.w #250,d4
  2909.  bsr CLIPANDDRAW
  2910.  rts
  2911.  
  2912.  
  2913. CLIPANDDRAW:
  2914.  
  2915.  tst.b FULLSCR
  2916.  beq.s .nodov
  2917.  
  2918.  add.w d0,d0
  2919.  add.w d2,d2
  2920.  ext.l d0
  2921.  ext.l d2
  2922.  divs #3,d0
  2923.  divs #3,d2
  2924.  
  2925. .nodov:
  2926.  
  2927.  move.w MAPBRIGHT,d5
  2928.  asr.w d5,d0
  2929.  asr.w d5,d1
  2930.  asr.w d5,d2
  2931.  asr.w d5,d3
  2932.  
  2933. NOSCALING:
  2934.  add.w #96,d0
  2935.  bge p1xpos
  2936.  
  2937.  add.w #96,d2
  2938.  blt OFFSCREEN
  2939.  
  2940. x1nx2p:
  2941.  
  2942.  move.w d3,d5
  2943.  sub.w d1,d5
  2944.  move.w d2,d6
  2945.  sub.w d0,d6
  2946.  beq OFFSCREEN
  2947.  
  2948.  muls d0,d5
  2949.  divs d6,d5
  2950.  sub.w d5,d1
  2951.  move.w #0,d0
  2952.  
  2953.  bra doneleftclip
  2954.  
  2955. p1xpos:
  2956.  
  2957.  add.w #96,d2
  2958.  bge doneleftclip
  2959.  
  2960.  move.w d1,d5
  2961.  sub.w d3,d5
  2962.  move.w d0,d6
  2963.  sub.w d2,d6
  2964.  beq OFFSCREEN
  2965.  
  2966.  muls d2,d5
  2967.  divs d6,d5
  2968.  sub.w d5,d3
  2969.  move.w #0,d2
  2970.  
  2971. doneleftclip:
  2972.  
  2973.  cmp.w #191,d0
  2974.  ble p1xneg
  2975.  
  2976.  cmp.w #191,d2
  2977.  bgt OFFSCREEN
  2978.  
  2979.  move.w d0,d6
  2980.  sub.w d2,d6
  2981.  beq OFFSCREEN
  2982.  sub.w #191,d0
  2983.  move.w d3,d5
  2984.  sub.w d1,d5
  2985.  
  2986.  muls d5,d0
  2987.  divs d6,d0
  2988.  add.w d0,d1
  2989.  move.w #191,d0
  2990.  
  2991.  bra donerightclip
  2992.  
  2993. p1xneg:
  2994.  
  2995.  cmp.w #191,d2
  2996.  ble donerightclip
  2997.  
  2998.  move.w d2,d6
  2999.  sub.w d0,d6
  3000.  beq OFFSCREEN
  3001.  sub.w #191,d2
  3002.  move.w d1,d5
  3003.  sub.w d3,d5
  3004.  
  3005.  muls d5,d2
  3006.  divs d6,d2
  3007.  add.w d2,d3
  3008.  move.w #191,d2
  3009.  
  3010. donerightclip:
  3011.  
  3012. *********************************
  3013.  
  3014.  add.w #80,d1
  3015.  bge p1ypos
  3016.  
  3017.  add.w #80,d3
  3018.  blt OFFSCREEN
  3019.  
  3020.  move.w d2,d5
  3021.  sub.w d0,d5
  3022.  move.w d3,d6
  3023.  sub.w d1,d6
  3024.  beq OFFSCREEN
  3025.  
  3026.  muls d1,d5
  3027.  divs d6,d5
  3028.  sub.w d5,d0
  3029.  move.w #0,d1
  3030.  
  3031.  bra donetopclip
  3032.  
  3033. p1ypos:
  3034.  
  3035.  add.w #80,d3
  3036.  bge donetopclip
  3037.  
  3038.  move.w d0,d5
  3039.  sub.w d2,d5
  3040.  move.w d1,d6
  3041.  sub.w d3,d6
  3042.  beq OFFSCREEN
  3043.  
  3044.  muls d3,d5
  3045.  divs d6,d5
  3046.  sub.w d5,d2
  3047.  move.w #0,d3
  3048.  
  3049. donetopclip:
  3050.  
  3051.  cmp.w #159,d1
  3052.  ble p1yneg
  3053.  
  3054.  cmp.w #159,d3
  3055.  bgt OFFSCREEN
  3056.  
  3057.  move.w d1,d6
  3058.  sub.w d3,d6
  3059.  beq OFFSCREEN
  3060.  sub.w #159,d1
  3061.  move.w d2,d5
  3062.  sub.w d0,d5
  3063.  
  3064.  muls d5,d1
  3065.  divs d6,d1
  3066.  add.w d1,d0
  3067.  move.w #159,d1
  3068.  
  3069.  bra donebotclip
  3070.  
  3071. p1yneg:
  3072.  
  3073.  cmp.w #159,d3
  3074.  ble donebotclip
  3075.  
  3076.  move.w d3,d6
  3077.  sub.w d1,d6
  3078.  beq OFFSCREEN
  3079.  sub.w #159,d3
  3080.  move.w d0,d5
  3081.  sub.w d2,d5
  3082.  
  3083.  muls d5,d3
  3084.  divs d6,d3
  3085.  add.w d3,d2
  3086.  move.w #159,d3
  3087.  
  3088. donebotclip:
  3089.  
  3090.  tst.b TRRANS
  3091.  bne DRAWAtransLINE
  3092.  bra DRAWAMAPLINE
  3093.  
  3094. OFFSCREEN:
  3095. NOLINEtrans:
  3096.  rts
  3097.  
  3098. MAPBRIGHT:
  3099.  dc.w 0
  3100. mapxoff: dc.w 0
  3101. mapzoff: dc.w 0
  3102.  
  3103. DRAWAtransLINE:
  3104.  
  3105.  move.l FASTBUFFER,a0    ; screen to render to.
  3106.  
  3107.  tst.b FULLSCR
  3108.  beq.s .nooffset
  3109.   
  3110.  add.l #(320*40)+(48*2),a0
  3111.   
  3112. .nooffset:
  3113.  
  3114.  cmp.w d1,d3
  3115.  bgt.s .okdown
  3116.  bne.s .aline
  3117.  cmp.w d0,d2
  3118.  beq.s NOLINEtrans 
  3119. .aline
  3120.  exg d0,d2
  3121.  exg d1,d3
  3122. .okdown
  3123.  
  3124.  move.w d1,d5
  3125.  muls #320,d5
  3126.  add.l d5,a0
  3127.  lea (a0,d0.w*2),a0
  3128.  
  3129.  sub.w d1,d3
  3130.  
  3131.  sub.w d0,d2
  3132.  bge.s downrighttrans
  3133.  
  3134. downlefttrans:
  3135.  neg.w d2
  3136.  cmp.w d2,d3
  3137.  bgt.s downmorelefttrans
  3138.  
  3139. downleftmoretrans:
  3140.  move.w #320,d6
  3141.  move.w d2,d0
  3142.  move.w d2,d7
  3143.  
  3144. .linelop:
  3145.  move.b (a0),d4
  3146.  move.b (a4,d4.w*2),(a0)
  3147.  subq #1,a0
  3148.  sub.w d3,d0
  3149.  bgt.s .noextra
  3150.  add.w d2,d0
  3151.  add.w d6,a0
  3152. .noextra:
  3153.  dbra d7,.linelop
  3154.  rts
  3155.  
  3156. downmorelefttrans:
  3157.  move.w #320,d6
  3158.  move.w d3,d0
  3159.  move.w d3,d7
  3160.  
  3161. .linelop:
  3162.  move.b (a0),d4
  3163.  move.b (a4,d4.w*2),(a0)
  3164.  add.w d6,a0
  3165.  sub.w d2,d0
  3166.  bgt.s .noextra
  3167.  add.w d3,d0
  3168.  subq #1,a0
  3169. .noextra:
  3170.  dbra d7,.linelop
  3171.  
  3172.  rts
  3173.  
  3174. downrighttrans:
  3175.  
  3176.  cmp.w d2,d3
  3177.  bgt.s downmorerighttrans
  3178.  
  3179. downrightmoretrans:
  3180.  move.w #320,d6
  3181.  move.w d2,d0
  3182.  move.w d2,d7
  3183.  
  3184. .linelop:
  3185.  move.b (a0),d4
  3186.  move.b (a4,d4.w*2),(a0)+
  3187.  sub.w d3,d0
  3188.  bgt.s .noextra
  3189.  add.w d2,d0
  3190.  add.w d6,a0
  3191. .noextra:
  3192.  dbra d7,.linelop
  3193.  
  3194.  rts
  3195.  
  3196. downmorerighttrans:
  3197.  move.w #320,d6
  3198.  move.w d3,d0
  3199.  move.w d3,d7
  3200.  
  3201. .linelop:
  3202.  move.b (a0),d4
  3203.  move.b (a4,d4.w*2),(a0)
  3204.  add.w d6,a0
  3205.  sub.w d2,d0
  3206.  bgt.s .noextra
  3207.  add.w d3,d0
  3208.  addq #1,a0
  3209. .noextra:
  3210.  dbra d7,.linelop
  3211.  
  3212.  rts
  3213.  
  3214. NOLINE:
  3215.  rts
  3216.  
  3217. DRAWAMAPLINE:
  3218.  
  3219.  
  3220.  move.l FASTBUFFER,a0    ; screen to render to.
  3221.  cmp.w d1,d3
  3222.  bgt.s .okdown
  3223.  bne.s .aline
  3224.  cmp.w d0,d2
  3225.  beq.s NOLINE 
  3226. .aline
  3227.  exg d0,d2
  3228.  exg d1,d3
  3229. .okdown
  3230.  
  3231.  move.w d1,d5
  3232.  muls #320,d5
  3233.  add.l d5,a0
  3234.  lea (a0,d0.w),a0
  3235.  
  3236.  sub.w d1,d3
  3237.  
  3238.  sub.w d0,d2
  3239.  bge.s downright
  3240.  
  3241. downleft:
  3242.  neg.w d2
  3243.  cmp.w d2,d3
  3244.  bgt.s downmoreleft
  3245.  
  3246. downleftmore:
  3247.  move.w #320,d6
  3248.  move.w d2,d0
  3249.  move.w d2,d7
  3250.  addq #1,a0
  3251.  
  3252. .linelop:
  3253.  move.b d4,-(a0)
  3254.  sub.w d3,d0
  3255.  bgt.s .noextra
  3256.  add.w d2,d0
  3257.  add.w d6,a0
  3258. .noextra:
  3259.  dbra d7,.linelop
  3260.  rts
  3261.  
  3262. downmoreleft:
  3263.  move.w #320,d6
  3264.  move.w d3,d0
  3265.  move.w d3,d7
  3266.  
  3267. .linelop:
  3268.  move.b d4,(a0)
  3269.  add.w d6,a0
  3270.  sub.w d2,d0
  3271.  bgt.s .noextra
  3272.  add.w d3,d0
  3273.  subq #1,a0
  3274. .noextra:
  3275.  dbra d7,.linelop
  3276.  
  3277.  rts
  3278.  
  3279. downright:
  3280.  
  3281.  cmp.w d2,d3
  3282.  bgt.s downmoreright
  3283.  
  3284. downrightmore:
  3285.  move.w #320,d6
  3286.  move.w d2,d0
  3287.  move.w d2,d7
  3288.  
  3289. .linelop:
  3290.  move.b d4,(a0)+
  3291.  sub.w d3,d0
  3292.  bgt.s .noextra
  3293.  add.w d2,d0
  3294.  add.w d6,a0
  3295. .noextra:
  3296.  dbra d7,.linelop
  3297.  
  3298.  rts
  3299.  
  3300. downmoreright:
  3301.  move.w #320,d6
  3302.  move.w d3,d0
  3303.  move.w d3,d7
  3304.  
  3305. .linelop:
  3306.  move.b d4,(a0)
  3307.  add.w d6,a0
  3308.  sub.w d2,d0
  3309.  bgt.s .noextra
  3310.  add.w d3,d0
  3311.  addq #1,a0
  3312. .noextra:
  3313.  dbra d7,.linelop
  3314.  
  3315.  rts
  3316.  
  3317. SAVETHESCREEN:
  3318.  
  3319.  move.w #$8020,$dff000+intena
  3320.  
  3321.  move.l doslib,a6
  3322.  move.l #SAVENAME,d1
  3323.  move.l #1006,d2
  3324.  jsr -30(a6)
  3325.  move.l d0,handle
  3326.  
  3327.  move.l doslib,a6
  3328.  move.l #scrn,d2
  3329.  move.l handle,d1
  3330.  move.l #10240*8,d3
  3331.  jsr _LVOWrite(a6)
  3332.  
  3333.  move.l doslib,a6
  3334.  move.l handle,d1
  3335.  jsr -36(a6)
  3336.  
  3337.  move.l doslib,a6
  3338.  move.l #200,d1
  3339.  jsr -198(a6) 
  3340.  
  3341.  move.w #$0020,$dff000+intena
  3342.  
  3343.  add.b #1,SAVELETTER
  3344.  
  3345.  rts
  3346.  
  3347. SAVENAME: dc.b 'df0:rawscrn'
  3348. SAVELETTER: dc.b 'd',0
  3349.  
  3350.  even
  3351.  
  3352.  include "ab3:source_4000/CHUNKY.s"
  3353.  
  3354.  
  3355. MASTERQUITTING: dc.b 0
  3356. SLAVEQUITTING: dc.b 0
  3357. MASTERPAUSE: dc.b 0
  3358. SLAVEPAUSE: dc.b 0
  3359.  
  3360. PAUSEOPTS:
  3361.  include "ab3:source_4000/pauseopts"
  3362.  
  3363. ENDZONES:
  3364. ; LEVEL 1
  3365.  dc.w -1
  3366. ; dc.w 55
  3367. ; LEVEL 2
  3368.  dc.w 149
  3369. ; LEVEL 3
  3370.  dc.w 155
  3371. ; LEVEL 4
  3372.  dc.w 107
  3373. ; LEVEL 5
  3374.  dc.w 67
  3375. ; LEVEL 6
  3376.  dc.w 132
  3377. ; LEVEL 7
  3378.  dc.w 203
  3379. ; LEVEL 8
  3380.  dc.w 166
  3381. ; LEVEL 9
  3382.  dc.w 118
  3383. ; LEVEL 10
  3384.  dc.w 102
  3385. ; LEVEL 11
  3386.  dc.w 103
  3387. ; LEVEL 12
  3388.  dc.w 2
  3389. ; LEVEL 13
  3390.  dc.w 98
  3391. ; LEVEL 14
  3392.  dc.w 0
  3393. ; LEVEL 15
  3394.  dc.w 148
  3395. ; LEVEL 16
  3396.  dc.w 103
  3397.  
  3398. ***************************************************************************
  3399. ***************************************************************************
  3400. ****************** End of Main Loop here ********************************** 
  3401. ***************************************************************************
  3402. ***************************************************************************
  3403.  
  3404. putinsmallscr:
  3405.  
  3406.  rts
  3407.  
  3408.  move.l #$1fe0000,statskip
  3409.  move.l #$1fe0000,statskip+4
  3410.  
  3411.  move.l #healthpal,a5
  3412. ; move.l COPSCRN1,a0
  3413. ; move.l COPSCRN2,a2
  3414.  move.w #scrheight-1,d0
  3415.  move.l #0,d6
  3416.  move.w #0,d3
  3417.  move.w #$2bdf,startwait
  3418.  move.w #$2d01,endwait
  3419. .fillcop
  3420.  move.w #$180,d1
  3421.  
  3422.  move.l a0,a1
  3423.  move.l a2,a3
  3424.  move.w #$10c,(a1)+
  3425.  move.w #$10c,(a3)+
  3426.  move.w d3,(a1)+
  3427.  move.w d3,(a3)+
  3428.  eor.w #$8000,d3
  3429.  
  3430.  move.w #$106,(a1)+
  3431.  move.w #$106,(a3)+
  3432.  move.w #$2c42,d5
  3433.  or.w d3,d5
  3434.  and.w #$fffe,d5
  3435.  move.w d5,(a1)+
  3436.  move.w d5,(a3)+
  3437.  bsr do32
  3438.  
  3439.  move.w #$106,(a1)+
  3440.  move.w #$106,(a3)+
  3441.  move.w #$4c42,d5
  3442.  or.w d3,d5
  3443.  and.w #$fffe,d5
  3444.  move.w d5,(a1)+
  3445.  move.w d5,(a3)+
  3446.  bsr do32
  3447.  
  3448.  move.w #$106,(a1)+
  3449.  move.w #$106,(a3)+
  3450.  move.w #$6c42,d5
  3451.  or.w d3,d5
  3452.  and.w #$fffe,d5
  3453.  move.w d5,(a1)+
  3454.  move.w d5,(a3)+
  3455.  bsr do32
  3456.  
  3457.  
  3458.  move.l #$1060c42,(a1)+
  3459.  move.l #$1060c42,(a3)+
  3460.  move.w #$19e,(a1)+
  3461.  move.w (a5),(a1)+
  3462.  move.w #$19e,(a3)+
  3463.  move.w (a5)+,(a3)+
  3464.  
  3465. **********************************
  3466.  
  3467.  adda.w #104*4,a0
  3468.  adda.w #104*4,a2
  3469.  dbra d0,.fillcop
  3470.  
  3471.  move.w #$48,fetchstart
  3472.  move.w #$88,fetchstop
  3473.  move.w #$2cb1,winstart
  3474.  move.w #$2c91,winstop
  3475.  move.w #-24,modulo
  3476.  move.w #-24,modulo+4
  3477.  
  3478.  move.l #nullspr,d0
  3479.  move.w d0,s4l
  3480.  move.w d0,s5l
  3481.  move.w d0,s6l
  3482.  move.w d0,s7l
  3483.  swap d0
  3484.  move.w d0,s4h
  3485.  move.w d0,s5h
  3486.  move.w d0,s6h
  3487.  move.w d0,s7h 
  3488.  
  3489.  move.l #borders,d0
  3490.  move.w d0,s0l
  3491.  swap d0
  3492.  move.w d0,s0h
  3493.  move.l #borders+2592,d0
  3494.  move.w d0,s1l
  3495.  swap d0
  3496.  move.w d0,s1h
  3497.  move.l #borders+2592*2,d0
  3498.  move.w d0,s2l
  3499.  swap d0
  3500.  move.w d0,s2h
  3501.  move.l #borders+2592*3,d0
  3502.  move.w d0,s3l
  3503.  swap d0
  3504.  move.w d0,s3h
  3505.  
  3506.  
  3507.  move.l #scrn+40,a0
  3508.  move.l #scrn+160,a1
  3509.  move.l #scrn+280,a2
  3510.  move.l #smallscrntab,a3
  3511.  move.w #191,d7    ; counter
  3512.  move.w #0,d1    ; xpos
  3513. .plotscrnloop:
  3514.  move.b (a3)+,d0
  3515.  move.w d1,d2
  3516.  asr.w #3,d2
  3517.  move.b d1,d3
  3518.  not.b d3
  3519.  bclr.b d3,-40(a0,d2.w)
  3520.  bclr.b d3,(a0,d2.w)
  3521.  bclr.b d3,40(a0,d2.w)
  3522.  bclr.b d3,-40(a1,d2.w)
  3523.  bclr.b d3,(a1,d2.w)
  3524.  bclr.b d3,40(a1,d2.w)
  3525.  bclr.b d3,-40(a2,d2.w)
  3526.  btst #0,d0
  3527.  beq.s .nobp1
  3528.  bset.b d3,-40(a0,d2.w)
  3529. .nobp1:
  3530.  btst #1,d0
  3531.  beq.s .nobp2
  3532.  bset.b d3,(a0,d2.w)
  3533. .nobp2:
  3534.  btst #2,d0
  3535.  beq.s .nobp3
  3536.  bset.b d3,40(a0,d2.w)
  3537. .nobp3:
  3538.  btst #3,d0
  3539.  beq.s .nobp4
  3540.  bset.b d3,-40(a1,d2.w)
  3541. .nobp4:
  3542.  btst #4,d0
  3543.  beq.s .nobp5
  3544.  bset.b d3,(a1,d2.w)
  3545. .nobp5:
  3546.  btst #5,d0
  3547.  beq.s .nobp6
  3548.  bset.b d3,40(a1,d2.w)
  3549. .nobp6:
  3550.  btst #6,d0
  3551.  beq.s .nobp7
  3552.  bset.b d3,-40(a2,d2.w)
  3553. .nobp7:
  3554.  
  3555.  addq #1,d1
  3556.  
  3557.  dbra d7,.plotscrnloop
  3558.  
  3559.  
  3560.  rts
  3561.  
  3562. putinlargescr:
  3563.  
  3564.  move.l #$1000000,statskip
  3565.  move.l #$fffffffe,statskip+4
  3566.  
  3567.  move.l #healthpal,a5
  3568. ; move.l COPSCRN1,a0
  3569. ; move.l COPSCRN2,a2
  3570.  move.w #scrheight-1,d0
  3571.  move.l #0,d6
  3572.  move.w #0,d3
  3573.  move.w #$29df,startwait
  3574.  move.w #$2b01,endwait
  3575. .fillcop
  3576.  move.w #$180,d1
  3577.  
  3578.  move.l a0,a1
  3579.  move.l a2,a3
  3580.  move.w #$10c,(a1)+
  3581.  move.w #$10c,(a3)+
  3582.  move.w d3,(a1)+
  3583.  move.w d3,(a3)+
  3584.  eor.w #$8000,d3
  3585.  
  3586.  move.w #$106,(a1)+
  3587.  move.w #$106,(a3)+
  3588.  move.w #$2c42,d5
  3589.  or.w d3,d5
  3590.  and.w #$fffe,d5
  3591.  move.w d5,(a1)+
  3592.  move.w d5,(a3)+
  3593.  bsr do32
  3594.  
  3595.  move.w #$106,(a1)+
  3596.  move.w #$106,(a3)+
  3597.  move.w #$4c42,d5
  3598.  or.w d3,d5
  3599.  and.w #$fffe,d5
  3600.  move.w d5,(a1)+
  3601.  move.w d5,(a3)+
  3602.  bsr do32
  3603.  
  3604.  move.w #$106,(a1)+
  3605.  move.w #$106,(a3)+
  3606.  move.w #$6c42,d5
  3607.  or.w d3,d5
  3608.  and.w #$fffe,d5
  3609.  move.w d5,(a1)+
  3610.  move.w d5,(a3)+
  3611.  bsr do32
  3612.  
  3613.  move.w startwait,(a1)+
  3614.  move.w #$fffe,(a1)+
  3615.  move.w endwait,(a1)+
  3616.  move.w #$ff00,(a1)+
  3617.  move.w startwait,(a3)+
  3618.  move.w #$fffe,(a3)+
  3619.  move.w endwait,(a3)+
  3620.  move.w #$ff00,(a3)+
  3621.  
  3622. ; move.l $1fe0000,(a1)+
  3623. ; move.l $1fe0000,(a3)+
  3624. ; move.l $1fe0000,(a1)+
  3625. ; move.l $1fe0000,(a3)+
  3626.  
  3627.  
  3628.  add.w #$300,startwait
  3629.  add.w #$300,endwait
  3630.  
  3631. ; move.l #$1060c42,(a1)+
  3632. ; move.l #$1060c42,(a3)+
  3633. ; move.w #$19e,(a1)+
  3634. ; move.w (a5),(a1)+
  3635. ; move.w #$19e,(a3)+
  3636. ; move.w (a5)+,(a3)+
  3637.  
  3638. **********************************
  3639.  
  3640.  adda.w #104*4,a0
  3641.  adda.w #104*4,a2
  3642.  dbra d0,.fillcop
  3643.  
  3644.  move.w #$38,fetchstart
  3645.  move.w #$b8,fetchstop
  3646.  move.w #$2c81,winstart
  3647.  move.w #$2cc1,winstop
  3648.  move.w #-40,modulo
  3649.  move.w #-40,modulo+4
  3650.  
  3651.  move.l #nullspr,d0
  3652.  move.w d0,s0l
  3653.  move.w d0,s1l
  3654.  move.w d0,s2l
  3655.  move.w d0,s3l
  3656.  move.w d0,s4l
  3657.  move.w d0,s5l
  3658.  move.w d0,s6l
  3659.  move.w d0,s7l
  3660.  swap d0
  3661.  move.w d0,s0h
  3662.  move.w d0,s1h
  3663.  move.w d0,s2h
  3664.  move.w d0,s3h
  3665.  move.w d0,s4h
  3666.  move.w d0,s5h
  3667.  move.w d0,s6h
  3668.  move.w d0,s7h 
  3669.  
  3670.  move.l #scrn+40,a0
  3671.  move.l #scrn+160,a1
  3672.  move.l #scrn+280,a2
  3673.  move.l #scrntab,a3
  3674.  move.w #319,d7    ; counter
  3675.  move.w #0,d1    ; xpos
  3676. .plotscrnloop:
  3677.  move.b (a3)+,d0
  3678.  move.w d1,d2
  3679.  asr.w #3,d2
  3680.  move.b d1,d3
  3681.  not.b d3
  3682.  bclr.b d3,-40(a0,d2.w)
  3683.  bclr.b d3,(a0,d2.w)
  3684.  bclr.b d3,40(a0,d2.w)
  3685.  bclr.b d3,-40(a1,d2.w)
  3686.  bclr.b d3,(a1,d2.w)
  3687.  bclr.b d3,40(a1,d2.w)
  3688.  bclr.b d3,-40(a2,d2.w)
  3689.  btst #0,d0
  3690.  beq.s .nobp1
  3691.  bset.b d3,-40(a0,d2.w)
  3692. .nobp1:
  3693.  btst #1,d0
  3694.  beq.s .nobp2
  3695.  bset.b d3,(a0,d2.w)
  3696. .nobp2:
  3697.  btst #2,d0
  3698.  beq.s .nobp3
  3699.  bset.b d3,40(a0,d2.w)
  3700. .nobp3:
  3701.  btst #3,d0
  3702.  beq.s .nobp4
  3703.  bset.b d3,-40(a1,d2.w)
  3704. .nobp4:
  3705.  btst #4,d0
  3706.  beq.s .nobp5
  3707.  bset.b d3,(a1,d2.w)
  3708. .nobp5:
  3709.  btst #5,d0
  3710.  beq.s .nobp6
  3711.  bset.b d3,40(a1,d2.w)
  3712. .nobp6:
  3713.  btst #6,d0
  3714.  beq.s .nobp7
  3715.  bset.b d3,-40(a2,d2.w)
  3716. .nobp7:
  3717.  
  3718.  addq #1,d1
  3719.  
  3720.  dbra d7,.plotscrnloop
  3721.  
  3722.  rts
  3723.  
  3724. CLEARKEYBOARD:
  3725.  move.l #KeyMap,a5
  3726.  moveq #0,d0
  3727.  move.w #15,d1
  3728. clrloo:
  3729.  move.l d0,(a5)+
  3730.  move.l d0,(a5)+
  3731.  move.l d0,(a5)+
  3732.  move.l d0,(a5)+
  3733.  dbra d1,clrloo
  3734.  rts
  3735.  
  3736. READCONTROLS: dc.w 0
  3737.  
  3738. tstststst: dc.w 0
  3739.  
  3740. BollocksRoom:
  3741.  dc.w -1
  3742.  ds.l 50
  3743.  
  3744. GUNYOFFS:
  3745.  dc.w 20
  3746.  dc.w 20
  3747.  dc.w 0
  3748.  dc.w 20
  3749.  dc.w 20
  3750.  dc.w 0
  3751.  dc.w 0
  3752.  dc.w 20
  3753.  
  3754. PLR1_BOBBLEY: dc.l 0
  3755.  
  3756. USEPLR1:
  3757.  
  3758. ***********************************
  3759.  
  3760.  move.l PLR1_Obj,a0 
  3761.  move.l ObjectPoints,a1
  3762.  move.l #ObjRotated,a2
  3763.  move.w (a0),d0
  3764.  move.l PLR1_xoff,(a1,d0.w*8)
  3765.  move.l PLR1_zoff,4(a1,d0.w*8)
  3766.  move.l PLR1_Roompt,a1
  3767.  
  3768.  moveq #0,d2
  3769.  move.b damagetaken(a0),d2
  3770.  beq .notbeenshot
  3771.  move.l #7*2116,hitcol
  3772.  sub.w d2,PLAYERONEHEALTH
  3773.  movem.l d0-d7/a0-a6,-(a7)
  3774.  move.b #$fb,IDNUM
  3775.  move.w #19,Samplenum
  3776.  clr.b notifplaying
  3777.  move.w #0,Noisex
  3778.  move.w #0,Noisez
  3779.  move.w #100,Noisevol
  3780.  jsr MakeSomeNoise
  3781.  
  3782.  movem.l (a7)+,d0-d7/a0-a6
  3783.  
  3784. .notbeenshot
  3785.  move.b #0,damagetaken(a0)
  3786.  move.b PLAYERONEHEALTH+1,numlives(a0)
  3787.  
  3788.  move.w p1_angpos,Facing(a0)
  3789.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3790.  
  3791.  move.w (a1),12(a0)
  3792.  move.w (a1),d2
  3793.  move.l #ZoneBrightTable,a1
  3794.  move.l (a1,d2.w*4),d2
  3795.  tst.b PLR1_StoodInTop
  3796.  bne.s .okinbott
  3797.  swap d2
  3798. .okinbott:
  3799.  
  3800.  move.w d2,2(a0)
  3801.  
  3802.  move.l p1_yoff,d0
  3803.  move.l p1_height,d1
  3804.  asr.l #1,d1
  3805.  add.l d1,d0
  3806.  asr.l #7,d0
  3807.  move.w d0,4(a0)
  3808.  
  3809. ***********************************
  3810.  
  3811.  move.l PLR2_Obj,a0 
  3812.  
  3813.  move.w PLR2_angpos,d0
  3814.  and.w #8190,d0
  3815.  move.w d0,Facing(a0)
  3816.  
  3817.  jsr ViewpointToDraw
  3818.  asl.w #2,d0
  3819.  moveq #0,d1
  3820.  move.b p2_bobble,d1
  3821.  not.b d1
  3822.  lsr.b #3,d1
  3823.  and.b #$3,d1
  3824.  add.w d1,d0
  3825.  move.w d0,10(a0)
  3826.  move.w #10,8(a0)
  3827.  
  3828.  move.l ObjectPoints,a1
  3829.  move.l #ObjRotated,a2
  3830.  move.w (a0),d0
  3831.  move.l PLR2_xoff,(a1,d0.w*8)
  3832.  move.l PLR2_zoff,4(a1,d0.w*8)
  3833.  move.l PLR2_Roompt,a1
  3834.  
  3835.  moveq #0,d2
  3836.  move.b damagetaken(a0),d2
  3837.  beq .notbeenshot2
  3838.  sub.w d2,PLR2_energy
  3839. .notbeenshot2
  3840.  move.b #0,damagetaken(a0)
  3841.  move.b PLR2_energy+1,numlives(a0)
  3842.  
  3843.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3844.  
  3845.  move.w (a1),12(a0)
  3846.  move.w (a1),d2
  3847.  move.l #ZoneBrightTable,a1
  3848.  move.l (a1,d2.w*4),d2
  3849.  tst.b PLR2_StoodInTop
  3850.  bne.s .okinbott2
  3851.  swap d2
  3852. .okinbott2:
  3853.  
  3854.  move.w d2,2(a0)
  3855.  
  3856.  move.l p2_yoff,d0
  3857.  move.l p2_height,d1
  3858.  asr.l #1,d1
  3859.  add.l d1,d0
  3860.  asr.l #7,d0
  3861.  move.w d0,4(a0)
  3862.  
  3863. **********************************
  3864.  
  3865.  move.l PLR1_Obj,a0
  3866.  move.l PLR1_Roompt,a1
  3867.  
  3868.  move.w Facing(a0),d0
  3869.  add.w #4096,d0
  3870.  and.w #8190,d0
  3871.  move.w d0,Facing+128(a0)
  3872.  
  3873.  move.w (a1),12+128(a0)
  3874.  move.w (a1),GraphicRoom+128(a0)
  3875.  
  3876.  moveq #0,d0
  3877.  move.b p1_gunselected,d0
  3878.  
  3879.  move.l LINKFILE,a1
  3880.  add.l #GunObjects,a1
  3881.  move.w (a1,d0.w*2),d0
  3882.  
  3883.  move.b d0,TypeOfThing+128(a0)
  3884.  move.b #1,128+16(a0)
  3885.  
  3886.  move.w (a0),d0
  3887.  move.w 128(a0),d1
  3888.  move.l ObjectPoints,a1
  3889.  move.l (a1,d0.w*8),(a1,d1.w*8)
  3890.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  3891.  
  3892.  st WhichAnim+128(a0)
  3893.  
  3894.  move.w 4(a0),4+128(a0)
  3895.  move.l PLR1_BOBBLEY,d1
  3896.  asr.l #8,d1
  3897.  add.w d1,4+128(a0)
  3898.  
  3899.  move.b ObjInTop(a0),ObjInTop+128(a0)
  3900.  
  3901.  rts
  3902.  
  3903. DRAWINGUN:
  3904.  move.l #Objects+9*16,a0
  3905.  move.l 4(a0),a5    ; ptr
  3906.  move.l 8(a0),a2    ; frames
  3907.  move.l 12(a0),a4    ; pal
  3908.  move.l (a0),a0        ; wad
  3909.  
  3910.  move.l #GunAnims,a1
  3911.  move.l (a1,d0.w*8),a1
  3912.  move.w (a1,d1.w*2),d5    ; frame of anim
  3913.  
  3914.  move.l #GUNYOFFS,a1
  3915.  move.w (a1,d0.w*2),d7    ; yoff
  3916.  move.l FASTBUFFER,a6
  3917.  move.w d7,d6
  3918.  muls #320*2,d6
  3919.  add.l d6,a6    ; screen pointer
  3920.  
  3921.  asl.w #2,d0
  3922.  add.w d5,d0    ; frame
  3923.  move.w (a2,d0.w*4),d1    ; xoff
  3924.  
  3925.  lea (a5,d1.w),a5    ; right ptr
  3926.  
  3927.  move.w #95,d0
  3928.  bsr DRAWCHUNK
  3929. ; addq.w #4,a6
  3930. ; move.w #31,d0
  3931. ; bsr DRAWCHUNK
  3932. ; addq.w #4,a6
  3933. ; move.w #31,d0
  3934. ; bsr DRAWCHUNK
  3935.  rts
  3936.  
  3937.  
  3938. DRAWCHUNK:
  3939.  move.w #78,d3
  3940.  sub.w d7,d3
  3941.  move.l a6,a3
  3942.  move.b (a5),d2
  3943.  move.l (a5)+,d1
  3944.  bne.s .noblank
  3945.  addq #4,a6
  3946.  dbra d0,DRAWCHUNK 
  3947.  rts
  3948.  
  3949. .noblank:
  3950.  and.l #$ffffff,d1
  3951.  lea (a0,d1.l),a1
  3952.  cmp.b #1,d2
  3953.  bgt.s thirdd
  3954.  beq.s secc
  3955. .drawdown:
  3956.  move.w (a1)+,d2
  3957.  and.w #%11111,d2
  3958.  beq.s .itsblank
  3959.  move.w (a4,d2.w*2),d4
  3960.  move.w d4,d5
  3961.  swap d4
  3962.  move.w d5,d4
  3963.  move.l d4,(a3)
  3964.  move.l d4,320(a3)
  3965. .itsblank
  3966.  add.w #320*2,a3
  3967.  dbra d3,.drawdown
  3968.  
  3969.  addq #2,a6
  3970.  dbra d0,DRAWCHUNK
  3971.  rts
  3972.  
  3973. secc:
  3974. .drawdown:
  3975.  move.w (a1)+,d2
  3976.  lsr.w #5,d2
  3977.  and.w #%11111,d2
  3978.  beq.s .itsblank
  3979.  move.w (a4,d2.w*2),d4
  3980.  move.w d4,d5
  3981.  swap d4
  3982.  move.w d5,d4
  3983.  move.l d4,(a3)
  3984.  move.l d4,320*2(a3)
  3985. .itsblank
  3986.  add.w #320*2*2,a3
  3987.  dbra d3,.drawdown
  3988.  
  3989.  addq #4,a6
  3990.  dbra d0,DRAWCHUNK
  3991.  rts
  3992.  
  3993. thirdd:
  3994. .drawdown:
  3995.  move.b (a1),d2
  3996.  addq #2,a1
  3997.  lsr.b #2,d2
  3998.  and.w #%11111,d2
  3999.  beq.s .itsblank
  4000.  move.w (a4,d2.w*2),d4
  4001.  move.w d4,d5
  4002.  swap d4
  4003.  move.w d5,d4
  4004.  move.l d4,(a3)
  4005.  move.l d4,320*2(a3)
  4006. .itsblank
  4007.  add.w #320*2*2,a3
  4008.  dbra d3,.drawdown
  4009.  
  4010.  addq #4,a6
  4011.  dbra d0,DRAWCHUNK
  4012.  rts
  4013.  
  4014.  
  4015.  
  4016. ***************************************************
  4017. **************************************************
  4018.  
  4019. USEPLR2:
  4020.  
  4021.  PROTKCHECK a0
  4022.  
  4023. ***********************************
  4024.  
  4025.  move.l PLR2_Obj,a0 
  4026.  move.l ObjectPoints,a1
  4027.  move.l #ObjRotated,a2
  4028.  move.w (a0),d0
  4029.  move.l PLR2_xoff,(a1,d0.w*8)
  4030.  move.l PLR2_zoff,4(a1,d0.w*8)
  4031.  move.l PLR2_Roompt,a1
  4032.  
  4033.  moveq #0,d2
  4034.  move.b damagetaken(a0),d2
  4035.  beq .notbeenshot
  4036.  move.l #7*2116,hitcol
  4037.  sub.w d2,PLR2_energy
  4038.  movem.l d0-d7/a0-a6,-(a7)
  4039.  move.w #19,Samplenum
  4040.  clr.b notifplaying
  4041.  move.b #$fb,IDNUM
  4042.  move.w #0,Noisex
  4043.  move.w #0,Noisez
  4044.  move.w #100,Noisevol
  4045.  jsr MakeSomeNoise
  4046.  
  4047.  movem.l (a7)+,d0-d7/a0-a6
  4048.  
  4049. .notbeenshot
  4050.  move.b #0,damagetaken(a0)
  4051.  move.b PLR2_energy+1,numlives(a0)
  4052.  
  4053.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4054.  
  4055.  move.w (a1),12(a0)
  4056.  move.w (a1),d2
  4057.  move.l #ZoneBrightTable,a1
  4058.  move.l (a1,d2.w*4),d2
  4059.  tst.b PLR2_StoodInTop
  4060.  bne.s .okinbott
  4061.  swap d2
  4062. .okinbott:
  4063.  
  4064.  move.w d2,2(a0)
  4065.  
  4066.  move.l PLR2_yoff,d0
  4067.  move.l p2_height,d1
  4068.  asr.l #1,d1
  4069.  add.l d1,d0
  4070.  asr.l #7,d0
  4071.  move.w d0,4(a0)
  4072.  
  4073. ***********************************
  4074.  
  4075.  move.l PLR1_Obj,a0 
  4076.  
  4077.  move.w PLR1_angpos,d0
  4078.  and.w #8190,d0
  4079.  move.w d0,Facing(a0)
  4080.  
  4081.  jsr ViewpointToDraw
  4082.  asl.w #2,d0
  4083.  moveq #0,d1
  4084.  move.b p1_bobble,d1
  4085.  not.b d1
  4086.  lsr.b #3,d1
  4087.  and.b #$3,d1
  4088.  add.w d1,d0
  4089.  move.w d0,10(a0)
  4090.  move.w #10,8(a0)
  4091.  
  4092.  move.l ObjectPoints,a1
  4093.  move.l #ObjRotated,a2
  4094.  move.w (a0),d0
  4095.  move.l PLR1_xoff,(a1,d0.w*8)
  4096.  move.l PLR1_zoff,4(a1,d0.w*8)
  4097.  move.l PLR1_Roompt,a1
  4098.  
  4099.  moveq #0,d2
  4100.  move.b damagetaken(a0),d2
  4101.  beq .notbeenshot2
  4102.  sub.w d2,PLAYERONEHEALTH
  4103. .notbeenshot2
  4104.  move.b #0,damagetaken(a0)
  4105.  move.b PLAYERONEHEALTH+1,numlives(a0)
  4106.  
  4107.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4108.  
  4109.  move.w (a1),12(a0)
  4110.  move.w (a1),d2
  4111.  move.l #ZoneBrightTable,a1
  4112.  move.l (a1,d2.w*4),d2
  4113.  tst.b PLR1_StoodInTop
  4114.  bne.s .okinbott2
  4115.  swap d2
  4116. .okinbott2:
  4117.  
  4118.  move.w d2,2(a0)
  4119.  
  4120.  move.l PLR1_yoff,d0
  4121.  move.l p1_height,d1
  4122.  asr.l #1,d1
  4123.  add.l d1,d0
  4124.  asr.l #7,d0
  4125.  move.w d0,4(a0)
  4126.  
  4127. **********************************
  4128.  
  4129.  move.l PLR2_Obj,a0
  4130.  move.w #-1,12+64(a0)
  4131.  
  4132.  rts
  4133.  
  4134.  
  4135. GunSelected: dc.b 0
  4136.  even
  4137.  
  4138. GunAnims:
  4139.  dc.l MachineAnim,3
  4140.  dc.l PlasmaAnim,5
  4141.  dc.l RocketAnim,5
  4142.  dc.l FlameThrowerAnim,5
  4143.  dc.l GrenadeAnim,12
  4144.  dc.l 0,0
  4145.  dc.l 0,0
  4146.  dc.l ShotGunAnim,12+19+11+20+1
  4147.  
  4148. MachineAnim:
  4149.  dc.w 0,1,2,3
  4150. PlasmaAnim:
  4151.  dc.w 0,1,2,3,3,3
  4152. RocketAnim:
  4153.  dc.w 0,1,2,3,3,3
  4154. FlameThrowerAnim:
  4155.  dc.w 0,1,2,3,3,3
  4156. GrenadeAnim:
  4157.  dc.w 0,1,1,1,1
  4158.  dc.w 2,2,2,2,3
  4159.  dc.w 3,3,3
  4160. ShotGunAnim:
  4161.  dc.w 0
  4162.  dcb.w 12,2
  4163.  dcb.w 19,1
  4164.  dcb.w 11,2
  4165.  dcb.w 20,0
  4166.  dc.w 3
  4167.  
  4168. GunData: dc.l 0
  4169.  
  4170. PLR1_GunData:
  4171. ; 0=Pistol 1=Big Gun
  4172. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  4173.  
  4174. ; VISIBLE/INSTANT (0/FF)
  4175. ; damage,gotgun(b)
  4176. ; Delay (w), Lifetime of bullet (w)
  4177. ; Click or hold down (0,1)
  4178. ; BulSpd: (w)
  4179.  
  4180. ;0
  4181.  dc.w 0
  4182. ;2
  4183.  dc.b 8,3
  4184. ;4
  4185.  dc.b 15
  4186. ;5
  4187.  dc.b -1
  4188. ;6
  4189.  dc.b 4,$ff
  4190. ;8
  4191.  dc.w 5,-1,1,0
  4192. ;16
  4193.  dc.w 0,0,0
  4194. ;22
  4195.  dc.w 1
  4196.  
  4197.  ds.w 4
  4198.  
  4199. ;PlasmaGun
  4200.  
  4201.  dc.w 0
  4202.  dc.b 8,1
  4203.  dc.b 20
  4204.  dc.b 0
  4205.  dc.b 16,0
  4206.  dc.w 10,-1,0,5
  4207.  dc.w 0,0,0
  4208.  dc.w 1
  4209.  
  4210.  ds.w 4
  4211.  
  4212. ;RocketLauncher
  4213.  
  4214.  dc.w 0
  4215.  dc.b 8,9
  4216.  dc.b 2
  4217.  dc.b 0
  4218.  dc.b 12,0
  4219.  dc.w 30,-1,0,5
  4220.  dc.w 0,0,0
  4221.  dc.w 1
  4222.  
  4223.  
  4224.  ds.w 4
  4225.  
  4226. ; FlameThrower
  4227.  
  4228.  dc.w 90*8
  4229.  dc.b 1,22
  4230.  dc.b 40
  4231.  dc.b 0
  4232.  dc.b 8,$0    
  4233.  dc.w 5,50,1,4
  4234.  dc.w 0,0,0
  4235.  dc.w 1
  4236.  
  4237.  ds.w 4
  4238.  
  4239. ;Grenade launcher
  4240.  
  4241.  
  4242.  dc.w 0
  4243.  dc.b 8,9
  4244.  dc.b 6
  4245.  dc.b 0
  4246.  dc.b 8,0
  4247.  dc.w 50,100,1,5
  4248.  dc.w 60,3
  4249.  dc.w -1000
  4250.  dc.w 1
  4251.  
  4252.  ds.w 4
  4253.  
  4254. ; WORMGUN
  4255.  
  4256.  dc.w 0
  4257.  dc.b 0,0
  4258.  dc.b 0
  4259.  dc.b 0,0
  4260.  dc.w 0,-1,0,5
  4261.  dc.w 0,0
  4262.  dc.w 0
  4263.  dc.w 1
  4264.  ds.w 4
  4265.  
  4266. ; ToughMarineGun
  4267.  
  4268.  dc.w 0
  4269.  dc.b 0,0
  4270.  dc.b 0
  4271.  dc.b 0,0
  4272.  dc.w 0,-1,0,5
  4273.  dc.w 0,0
  4274.  dc.w 0
  4275.  dc.w 1
  4276.  ds.w 4
  4277.  
  4278. ; Shotgun
  4279.  
  4280. ;0
  4281.  dc.w 0
  4282. ;2
  4283.  dc.b 8,21
  4284. ;4
  4285.  dc.b 15
  4286. ;5
  4287.  dc.b -1
  4288. ;6
  4289.  dc.b 4,0
  4290. ;8
  4291.  dc.w 50,-1,1,0
  4292. ;16
  4293.  dc.w 0,0,0
  4294. ;22
  4295.  dc.w 7
  4296.  
  4297.  ds.w 4
  4298.  
  4299. PLR2_GunData:
  4300. ; 0=Pistol 1=Big Gun
  4301. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  4302.  
  4303. ; VISIBLE/INSTANT (0/FF)
  4304. ; damage,gotgun(b)
  4305. ; Delay (w)
  4306.  
  4307. ;0
  4308.  dc.w 0
  4309. ;2
  4310.  dc.b 8,3
  4311. ;4
  4312.  dc.b 15
  4313. ;5
  4314.  dc.b -1
  4315. ;6
  4316.  dc.b 4,$ff
  4317. ;8
  4318.  dc.w 5,-1,1,0
  4319. ;16
  4320.  dc.w 0,0,0
  4321. ;22
  4322.  dc.w 1
  4323.  
  4324.  ds.w 4
  4325.  
  4326. ;PlasmaGun
  4327.  
  4328.  dc.w 0
  4329.  dc.b 8,1
  4330.  dc.b 20
  4331.  dc.b 0
  4332.  dc.b 16,0
  4333.  dc.w 10,-1,0,5
  4334.  dc.w 0,0,0
  4335.  dc.w 1
  4336.  
  4337.  ds.w 4
  4338.  
  4339. ;RocketLauncher
  4340.  
  4341.  dc.w 0
  4342.  dc.b 8,9
  4343.  dc.b 2
  4344.  dc.b 0
  4345.  dc.b 12,0
  4346.  dc.w 30,-1,0,5
  4347.  dc.w 0,0,0
  4348.  dc.w 1
  4349.  
  4350.  
  4351.  ds.w 4
  4352.  
  4353. ; FlameThrower
  4354.  
  4355.  dc.w 90*8
  4356.  dc.b 1,22
  4357.  dc.b 40
  4358.  dc.b 0
  4359.  dc.b 8,$0    
  4360.  dc.w 5,50,1,4
  4361.  dc.w 0,0,0
  4362.  dc.w 1
  4363.  
  4364.  ds.w 4
  4365.  
  4366. ;Grenade launcher
  4367.  
  4368.  
  4369.  dc.w 0
  4370.  dc.b 8,9
  4371.  dc.b 6
  4372.  dc.b 0
  4373.  dc.b 8,0
  4374.  dc.w 50,100,1,5
  4375.  dc.w 60,3
  4376.  dc.w -1000
  4377.  dc.w 1
  4378.  
  4379.  ds.w 4
  4380.  
  4381. ; WORMGUN
  4382.  
  4383.  dc.w 0
  4384.  dc.b 0,0
  4385.  dc.b 0
  4386.  dc.b 0,0
  4387.  dc.w 0,-1,0,5
  4388.  dc.w 0,0
  4389.  dc.w 0
  4390.  dc.w 1
  4391.  ds.w 4
  4392.  
  4393. ; ToughMarineGun
  4394.  
  4395.  dc.w 0
  4396.  dc.b 0,0
  4397.  dc.b 0
  4398.  dc.b 0,0
  4399.  dc.w 0,-1,0,5
  4400.  dc.w 0,0
  4401.  dc.w 0
  4402.  dc.w 1
  4403.  ds.w 4
  4404.  
  4405. ; Shotgun
  4406.  
  4407. ;0
  4408.  dc.w 0
  4409. ;2
  4410.  dc.b 8,21
  4411. ;4
  4412.  dc.b 15
  4413. ;5
  4414.  dc.b -1
  4415. ;6
  4416.  dc.b 4,0
  4417. ;8
  4418.  dc.w 50,-1,1,0
  4419. ;16
  4420.  dc.w 0,0,0
  4421. ;22
  4422.  dc.w 7
  4423.  
  4424.  ds.w 4
  4425.  
  4426.  
  4427.  
  4428. protA: dc.w 0
  4429.  
  4430. Path:
  4431. ; incbin "testpath"
  4432. endpath:
  4433. pathpt: dc.l Path
  4434.  
  4435.  
  4436. PLR1KEYS: dc.b 0
  4437. PLR1PATH: dc.b 0
  4438. PLR1MOUSE: dc.b -1
  4439. PLR1JOY: dc.b 0
  4440. PLR2KEYS: dc.b 0
  4441. PLR2PATH: dc.b 0
  4442. PLR2MOUSE: dc.b -1
  4443. PLR2JOY: dc.b 0
  4444.  
  4445.  even
  4446.  
  4447. PLR1_bobble: dc.w 0
  4448. PLR2_bobble: dc.w 0
  4449. xwobble: dc.l 0
  4450. xwobxoff: dc.w 0
  4451.  
  4452. xwobzoff: dc.w 0
  4453.  
  4454. PLR1_Control:
  4455.  
  4456. ; Take a snapshot of everything.
  4457.  
  4458.  move.l PLR1_xoff,d2
  4459.  move.l d2,PLR1_oldxoff
  4460.  move.l d2,oldx
  4461.  move.l PLR1_zoff,d3
  4462.  move.l d3,PLR1_oldzoff
  4463.  move.l d3,oldz
  4464.  move.l p1_xoff,d0
  4465.  move.l d0,PLR1_xoff
  4466.  move.l d0,newx
  4467.  move.l p1_zoff,d1
  4468.  move.l d1,newz
  4469.  move.l d1,PLR1_zoff
  4470.  
  4471.  move.l p1_height,PLR1_height
  4472.  
  4473.  sub.l d2,d0
  4474.  sub.l d3,d1
  4475.  move.l d0,xdiff
  4476.  move.l d1,zdiff
  4477.  move.w p1_angpos,d0
  4478.  move.w d0,PLR1_angpos
  4479.  
  4480.  move.l #SineTable,a1
  4481.  move.w (a1,d0.w),PLR1_sinval
  4482.  add.w #2048,d0
  4483.  and.w #8190,d0
  4484.  move.w (a1,d0.w),PLR1_cosval
  4485.  
  4486.  move.l p1_yoff,d0
  4487.  move.w p1_bobble,d1
  4488.  move.w (a1,d1.w),d1
  4489.  move.w d1,d3
  4490.  ble.s notnegative
  4491.  neg.w d1
  4492. notnegative:
  4493.  add.w #16384,d1
  4494.  asr.w #4,d1
  4495.  
  4496.  tst.b PLR1_Ducked
  4497.  bne.s .notdouble
  4498.  add.w d1,d1
  4499. .notdouble
  4500.  ext.l d1
  4501.  
  4502.  move.l d1,PLR1_BOBBLEY
  4503.  
  4504.  move.l PLR1_height,d4
  4505.  sub.l d1,d4
  4506.  add.l d1,d0
  4507.  
  4508.  cmp.b #'s',mors
  4509.  beq.s .otherwob
  4510.  asr.w #6,d3
  4511.  ext.l d3
  4512.  move.l d3,xwobble
  4513.  move.w PLR1_sinval,d1
  4514.  muls d3,d1
  4515.  move.w PLR1_cosval,d2
  4516.  muls d3,d2
  4517.  swap d1
  4518.  swap d2
  4519.  asr.w #7,d1
  4520.  move.w d1,xwobxoff
  4521.  asr.w #7,d2
  4522.  neg.w d2
  4523.  move.w d2,xwobzoff
  4524. .otherwob
  4525.  
  4526.  move.l d0,PLR1_yoff
  4527.  move.l d0,newy
  4528.  move.l d0,oldy
  4529.  
  4530.  move.l d4,thingheight
  4531.  move.l #40*256,StepUpVal
  4532.  tst.b PLR1_Ducked
  4533.  beq.s .okbigstep
  4534.  move.l #10*256,StepUpVal
  4535. .okbigstep:
  4536.  
  4537.  move.l #$1000000,StepDownVal
  4538.  
  4539.  move.l PLR1_Roompt,a0
  4540.  move.w ToTelZone(a0),d0
  4541.  blt .noteleport
  4542.  
  4543.  move.w ToTelX(a0),newx
  4544.  move.w ToTelZ(a0),newz
  4545.  move.w #-1,CollId
  4546.  move.l #%111111111111111111,CollideFlags
  4547.  bsr Collision
  4548.  tst.b hitwall
  4549.  beq.s .teleport
  4550.  
  4551.  move.w PLR1_xoff,newx
  4552.  move.w PLR1_zoff,newz
  4553.  bra .noteleport
  4554.  
  4555. .teleport:
  4556.  
  4557.  move.l PLR1_Roompt,a0
  4558.  move.w ToTelZone(a0),d0
  4559.  move.w ToTelX(a0),PLR1_xoff
  4560.  move.w ToTelZ(a0),PLR1_zoff
  4561.  move.l PLR1_yoff,d1
  4562.  sub.l ToZoneFloor(a0),d1
  4563.  move.l ZoneAdds,a0
  4564.  move.l (a0,d0.w*4),a0
  4565.  add.l LEVELDATA,a0
  4566.  move.l a0,PLR1_Roompt
  4567.  add.l ToZoneFloor(a0),d1
  4568.  move.l d1,PLR1s_yoff
  4569.  move.l d1,PLR1_yoff
  4570.  move.l d1,PLR1s_tyoff
  4571.  move.l PLR1_xoff,PLR1s_xoff
  4572.  move.l PLR1_zoff,PLR1s_zoff
  4573.  
  4574.  SAVEREGS
  4575.  move.w #0,Noisex
  4576.  move.w #0,Noisez
  4577.  move.w #26,Samplenum
  4578.  move.w #100,Noisevol
  4579.  move.b #$fa,IDNUM
  4580.  jsr MakeSomeNoise
  4581.  GETREGS
  4582.  
  4583.  bra .cantmove
  4584.  
  4585. .noteleport:
  4586.  
  4587.  move.l PLR1_Roompt,objroom
  4588.  move.w #%100000000,wallflags
  4589.  move.b PLR1_StoodInTop,StoodInTop
  4590.  
  4591.  move.l #%1011111110111000001,CollideFlags
  4592.  move.w #-1,CollId
  4593.  
  4594.  bsr Collision
  4595.  tst.b hitwall
  4596.  beq.s .nothitanything
  4597.  move.w oldx,PLR1_xoff
  4598.  move.w oldz,PLR1_zoff
  4599.  move.l PLR1_xoff,PLR1s_xoff
  4600.  move.l PLR1_zoff,PLR1s_zoff
  4601.  bra .cantmove
  4602. .nothitanything:
  4603.  
  4604.  move.w #40,extlen
  4605.  move.b #0,awayfromwall
  4606.  
  4607.  clr.b exitfirst
  4608.  clr.b wallbounce
  4609.  bsr MoveObject
  4610.  move.b StoodInTop,PLR1_StoodInTop
  4611.  move.l objroom,PLR1_Roompt
  4612.  move.w newx,PLR1_xoff
  4613.  move.w newz,PLR1_zoff
  4614.  move.l PLR1_xoff,PLR1s_xoff
  4615.  move.l PLR1_zoff,PLR1s_zoff
  4616.  
  4617. .cantmove:
  4618.  
  4619.  move.l PLR1_Roompt,a0
  4620.  
  4621.  move.l ToZoneFloor(a0),d0
  4622.  tst.b PLR1_StoodInTop
  4623.  beq.s notintop
  4624.  move.l ToUpperFloor(a0),d0
  4625. notintop:
  4626.  
  4627.  adda.w #ToZonePts,a0
  4628.  sub.l PLR1_height,d0
  4629.  move.l d0,PLR1s_tyoff
  4630.  move.w p1_angpos,tmpangpos
  4631.  
  4632. ; move.l (a0),a0        ; jump to viewpoint list
  4633.  * A0 is pointing at a pointer to list of points to rotate
  4634.  move.w (a0)+,d1
  4635.  ext.l d1
  4636.  add.l PLR1_Roompt,d1
  4637.  move.l d1,PLR1_PointsToRotatePtr
  4638.  tst.w (a0)+
  4639.  sne.s DRAWNGRAPHTOP
  4640.  beq.s nobackgraphics
  4641.  cmp.b #'s',mors
  4642.  beq.s nobackgraphics
  4643.  move.l a0,-(a7)
  4644.  jsr putinbackdrop 
  4645.  move.l (a7)+,a0
  4646. nobackgraphics:
  4647.  adda.w #10,a0
  4648.  move.l a0,PLR1_ListOfGraphRooms
  4649.  
  4650. *************************************************
  4651.  rts
  4652.  
  4653. DRAWNGRAPHTOP
  4654.  dc.w 0 
  4655. tstzone: dc.l 0
  4656. CollId: dc.w 0
  4657.  
  4658. PLR2_Control:
  4659.  
  4660.  PROTLCHECK a0
  4661.  
  4662. ; Take a snapshot of everything.
  4663.  
  4664.  move.l PLR2_xoff,d2
  4665.  move.l d2,PLR2_oldxoff
  4666.  move.l d2,oldx
  4667.  move.l PLR2_zoff,d3
  4668.  move.l d3,PLR2_oldzoff
  4669.  move.l d3,oldz
  4670.  move.l p2_xoff,d0
  4671.  move.l d0,PLR2_xoff
  4672.  move.l d0,newx
  4673.  move.l p2_zoff,d1
  4674.  move.l d1,newz
  4675.  move.l d1,PLR2_zoff
  4676.  
  4677.  move.l p2_height,PLR2_height
  4678.  
  4679.  sub.l d2,d0
  4680.  sub.l d3,d1
  4681.  move.l d0,xdiff
  4682.  move.l d1,zdiff
  4683.  move.w p2_angpos,d0
  4684.  move.w d0,PLR2_angpos
  4685.  
  4686.  move.l #SineTable,a1
  4687.  move.w (a1,d0.w),PLR2_sinval
  4688.  add.w #2048,d0
  4689.  and.w #8190,d0
  4690.  move.w (a1,d0.w),PLR2_cosval
  4691.  
  4692.  move.l p2_yoff,d0
  4693.  move.w p2_bobble,d1
  4694.  move.w (a1,d1.w),d1
  4695.  move.w d1,d3
  4696.  ble.s .notnegative
  4697.  neg.w d1
  4698. .notnegative:
  4699.  add.w #16384,d1
  4700.  asr.w #4,d1
  4701.  add.w d1,d1
  4702.  ext.l d1
  4703.  move.l PLR2_height,d4
  4704.  sub.l d1,d4
  4705.  add.l d1,d0
  4706.  
  4707.  cmp.b #'s',mors
  4708.  bne.s .otherwob
  4709.  asr.w #6,d3
  4710.  ext.l d3
  4711.  move.l d3,xwobble
  4712.  move.w PLR2_sinval,d1
  4713.  muls d3,d1
  4714.  move.w PLR2_cosval,d2
  4715.  muls d3,d2
  4716.  swap d1
  4717.  swap d2
  4718.  asr.w #7,d1
  4719.  move.w d1,xwobxoff
  4720.  asr.w #7,d2
  4721.  neg.w d2
  4722.  move.w d2,xwobzoff
  4723. .otherwob
  4724.  
  4725.  move.l d0,PLR2_yoff
  4726.  move.l d0,newy
  4727.  move.l d0,oldy
  4728.  
  4729.  move.l d4,thingheight
  4730.  move.l #40*256,StepUpVal
  4731.  tst.b PLR2_Ducked
  4732.  beq.s .okbigstep
  4733.  move.l #10*256,StepUpVal
  4734. .okbigstep:
  4735.  
  4736.  move.l #$1000000,StepDownVal
  4737.  
  4738.  move.l PLR2_Roompt,a0
  4739.  move.w ToTelZone(a0),d0
  4740.  blt .noteleport
  4741.  
  4742.  move.w ToTelX(a0),newx
  4743.  move.w ToTelZ(a0),newz
  4744.  move.w #-1,CollId
  4745.  move.l #%111111111111111111,CollideFlags
  4746.  bsr Collision
  4747.  tst.b hitwall
  4748.  beq.s .teleport
  4749.  
  4750.  move.w PLR2_xoff,newx
  4751.  move.w PLR2_zoff,newz
  4752.  bra .noteleport
  4753.  
  4754. .teleport:
  4755.  
  4756.  move.l PLR2_Roompt,a0
  4757.  move.w ToTelZone(a0),d0
  4758.  move.w ToTelX(a0),PLR2_xoff
  4759.  move.w ToTelZ(a0),PLR2_zoff
  4760.  move.l PLR2_yoff,d1
  4761.  sub.l ToZoneFloor(a0),d1
  4762.  move.l ZoneAdds,a0
  4763.  move.l (a0,d0.w*4),a0
  4764.  add.l LEVELDATA,a0
  4765.  move.l a0,PLR2_Roompt
  4766.  add.l ToZoneFloor(a0),d1
  4767.  move.l d1,PLR2s_yoff
  4768.  move.l d1,PLR2_yoff
  4769.  move.l d1,PLR2s_tyoff
  4770.  move.l PLR2_xoff,PLR2s_xoff
  4771.  move.l PLR2_zoff,PLR2s_zoff
  4772.  
  4773.  SAVEREGS
  4774.  move.w #0,Noisex
  4775.  move.w #0,Noisez
  4776.  move.w #26,Samplenum
  4777.  move.w #100,Noisevol
  4778.  move.b #$fa,IDNUM
  4779.  jsr MakeSomeNoise
  4780.  GETREGS
  4781.  
  4782.  bra .cantmove
  4783.  
  4784. .noteleport:
  4785.  
  4786.  move.l PLR2_Roompt,objroom
  4787.  move.w #%100000000000,wallflags
  4788.  move.b PLR2_StoodInTop,StoodInTop
  4789.  
  4790.  move.l #%1011111010111100001,CollideFlags
  4791.  move.w #-1,CollId
  4792.  
  4793.  bsr Collision
  4794.  tst.b hitwall
  4795.  beq.s .nothitanything
  4796.  move.w oldx,PLR2_xoff
  4797.  move.w oldz,PLR2_zoff
  4798.  move.l PLR2_xoff,PLR2s_xoff
  4799.  move.l PLR2_zoff,PLR2s_zoff
  4800.  bra .cantmove
  4801. .nothitanything:
  4802.  
  4803.  move.w #40,extlen
  4804.  move.b #0,awayfromwall
  4805.  
  4806.  clr.b exitfirst
  4807.  clr.b wallbounce
  4808.  bsr MoveObject
  4809.  move.b StoodInTop,PLR2_StoodInTop
  4810.  move.l objroom,PLR2_Roompt
  4811.  move.w newx,PLR2_xoff
  4812.  move.w newz,PLR2_zoff
  4813.  move.l PLR2_xoff,PLR2s_xoff
  4814.  move.l PLR2_zoff,PLR2s_zoff
  4815.  
  4816. .cantmove
  4817.  
  4818.  move.l PLR2_Roompt,a0
  4819.  
  4820.  move.l ToZoneFloor(a0),d0
  4821.  tst.b PLR2_StoodInTop
  4822.  beq.s .notintop
  4823.  move.l ToUpperFloor(a0),d0
  4824. .notintop:
  4825.  
  4826.  adda.w #ToZonePts,a0
  4827.  sub.l PLR2_height,d0
  4828.  move.l d0,PLR2s_tyoff
  4829.  move.w p2_angpos,tmpangpos
  4830.  
  4831. ; move.l (a0),a0        ; jump to viewpoint list
  4832.  * A0 is pointing at a pointer to list of points to rotate
  4833.  move.w (a0)+,d1
  4834.  ext.l d1
  4835.  add.l PLR2_Roompt,d1
  4836.  move.l d1,PLR2_PointsToRotatePtr
  4837.  tst.w (a0)+
  4838.  beq.s .nobackgraphics
  4839.  cmp.b #'s',mors
  4840.  bne.s .nobackgraphics
  4841.  move.l a0,-(a7)
  4842.  jsr putinbackdrop 
  4843.  move.l (a7)+,a0
  4844. .nobackgraphics:
  4845.  adda.w #10,a0
  4846.  move.l a0,PLR2_ListOfGraphRooms
  4847.  
  4848. *****************************************************
  4849.  
  4850.  rts
  4851.  
  4852.  
  4853. KeyMap: ds.b 256
  4854.  
  4855. fillscrnwater:
  4856.  dc.w 0
  4857. DONTDOGUN:
  4858.  dc.w 0
  4859.  
  4860. temptemp: ds.l 200
  4861. temptempptr: dc.l 0
  4862.  
  4863. DrawDisplay:
  4864.  
  4865.  move.l #temptemp,temptempptr
  4866.  
  4867.  clr.b fillscrnwater
  4868.  
  4869.  move.l #SineTable,a0
  4870.  move.w angpos,d0
  4871.  move.w (a0,d0.w),d6
  4872.  adda.w #2048,a0
  4873.  move.w (a0,d0.w),d7
  4874.  move.w d6,sinval
  4875.  move.w d7,cosval
  4876.  
  4877.  move.l #KeyMap,a5
  4878.  moveq #0,d5
  4879.  move.b look_behind_key,d5
  4880.  tst.b (a5,d5.w)
  4881.  sne DONTDOGUN
  4882.  beq.s .nolookback
  4883.  neg.w cosval
  4884.  neg.w sinval
  4885. .nolookback:
  4886.  
  4887.  
  4888.  move.l yoff,d0
  4889.  asr.l #8,d0
  4890.  move.w d0,d1
  4891.  add.w #256-32,d1
  4892.  and.w #255,d1
  4893.  move.w d1,wallyoff
  4894.  move.l yoff,d0
  4895.  asr.l #6,d0
  4896.  move.w d0,flooryoff
  4897.  
  4898.  move.w xoff,d6
  4899.  move.w d6,d3
  4900.  asr.w #1,d3
  4901.  add.w d3,d6
  4902.  asr.w #1,d6
  4903.  move.w d6,xoff34
  4904.  
  4905.  move.w zoff,d6
  4906.  move.w d6,d3
  4907.  asr.w #1,d3
  4908.  add.w d3,d6
  4909.  asr.w #1,d6
  4910.  move.w d6,zoff34
  4911.  
  4912.  bsr RotateLevelPts
  4913.  bsr RotateObjectPts
  4914.  bsr CalcPLR1InLine
  4915.  
  4916.  
  4917.  cmp.b #'n',mors
  4918.  bne.s doplr2too
  4919.  move.l PLR2_Obj,a0
  4920.  move.w #-1,12(a0)
  4921.  move.w #-1,GraphicRoom(a0)
  4922.  bra noplr2either
  4923.  
  4924. doplr2too:
  4925.  bsr CalcPLR2InLine
  4926. noplr2either:
  4927.  
  4928.  move.l endoflist,a0
  4929. subroomloop:
  4930.  move.w -(a0),d7
  4931.  blt jumpoutofrooms
  4932.  
  4933. ; bsr setlrclip
  4934. ; move.w leftclip,d0
  4935. ; cmp.w rightclip,d0
  4936. ; bge subroomloop
  4937.  move.l a0,-(a7)
  4938.  
  4939.  move.l ZoneAdds,a0
  4940.  move.l (a0,d7.w*4),a0
  4941.  add.l LEVELDATA,a0
  4942.  move.l ToZoneRoof(a0),SplitHeight
  4943.  move.l a0,ROOMBACK
  4944.  
  4945.  move.l ZoneGraphAdds,a0
  4946.  move.l 4(a0,d7.w*8),a2
  4947.  move.l (a0,d7.w*8),a0
  4948.  
  4949.  add.l LEVELGRAPHICS,a0
  4950.  add.l LEVELGRAPHICS,a2
  4951.  move.l a2,ThisRoomToDraw+4
  4952.  move.l a0,ThisRoomToDraw
  4953.  
  4954.  move.l ListOfGraphRooms,a1
  4955.  
  4956.  
  4957.  
  4958. finditit:
  4959.  tst.w (a1)
  4960.  blt nomoretodoatall
  4961.  cmp.w (a1),d7
  4962.  beq outoffind
  4963.  adda.w #8,a1
  4964.  bra finditit
  4965.  
  4966. outoffind:
  4967.  
  4968.  move.l a1,-(a7)
  4969.  
  4970.  
  4971.  move.w #0,leftclip
  4972.  move.w RIGHTX,rightclip
  4973.  moveq #0,d7
  4974.  move.w 2(a1),d7
  4975.  blt.s outofrcliplop
  4976.  move.l LEVELCLIPS,a0
  4977.  lea (a0,d7.l*2),a0
  4978.  
  4979.  tst.w (a0)
  4980.  blt outoflcliplop
  4981.  
  4982.  bsr NEWsetlclip
  4983.  
  4984. intolcliplop:        ; clips
  4985.  tst.w (a0)
  4986.  blt outoflcliplop
  4987.  
  4988.  bsr NEWsetlclip 
  4989.  bra intolcliplop
  4990.  
  4991. outoflcliplop:
  4992.  
  4993.  addq #2,a0
  4994.  
  4995.  tst.w (a0)
  4996.  blt outofrcliplop
  4997.  
  4998.  bsr NEWsetrclip
  4999.  
  5000. intorcliplop:        ; clips
  5001.  tst.w (a0)
  5002.  blt outofrcliplop
  5003.  
  5004.  bsr NEWsetrclip 
  5005.  bra intorcliplop
  5006.  
  5007. outofrcliplop:
  5008.  
  5009.  
  5010.  move.w leftclip,d0
  5011.  cmp.w RIGHTX,d0
  5012.  bge dontbothercantseeit
  5013.  move.w rightclip,d1
  5014.  blt dontbothercantseeit
  5015.  cmp.w d1,d0
  5016.  bge dontbothercantseeit
  5017.  
  5018.  move.l yoff,d0
  5019.  cmp.l SplitHeight,d0
  5020.  blt botfirst
  5021.  
  5022.  move.l ThisRoomToDraw+4,a0
  5023.  cmp.l LEVELGRAPHICS,a0
  5024.  beq.s noupperroom
  5025.  st DOUPPER
  5026.  
  5027.  move.l ROOMBACK,a1
  5028.  move.l ToUpperRoof(a1),TOPOFROOM
  5029.  move.l ToUpperFloor(a1),BOTOFROOM
  5030.  
  5031.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5032.  bsr dothisroom
  5033. noupperroom:
  5034.  move.l ThisRoomToDraw,a0
  5035.  clr.b DOUPPER
  5036.  move.l #CurrentPointBrights,PointBrightsPtr
  5037.  
  5038.  move.l ROOMBACK,a1
  5039.  move.l ToZoneRoof(a1),d0
  5040.  move.l d0,TOPOFROOM
  5041.  move.l ToZoneFloor(a1),d1
  5042.  move.l d1,BOTOFROOM
  5043.  
  5044.  move.l ToZoneWater(a1),d2
  5045.  cmp.l yoff,d2
  5046.  blt.s .abovefirst
  5047.  move.l d2,BEFOREWATTOP
  5048.  move.l d1,BEFOREWATBOT
  5049.  move.l d2,AFTERWATBOT
  5050.  move.l d0,AFTERWATTOP
  5051.  bra.s .belowfirst
  5052. .abovefirst:
  5053.  move.l d0,BEFOREWATTOP
  5054.  move.l d2,BEFOREWATBOT
  5055.  move.l d1,AFTERWATBOT
  5056.  move.l d2,AFTERWATTOP
  5057. .belowfirst:
  5058.  
  5059.  bsr dothisroom
  5060.  
  5061.  bra dontbothercantseeit
  5062. botfirst:
  5063.  
  5064.  move.l ThisRoomToDraw,a0
  5065.  clr.b DOUPPER
  5066.  move.l #CurrentPointBrights,PointBrightsPtr
  5067.  
  5068.  move.l ROOMBACK,a1
  5069.  move.l ToZoneRoof(a1),d0
  5070.  move.l d0,TOPOFROOM
  5071.  move.l ToZoneFloor(a1),d1
  5072.  move.l d1,BOTOFROOM
  5073.  
  5074.  move.l ToZoneWater(a1),d2
  5075.  cmp.l yoff,d2
  5076.  blt.s .abovefirst
  5077.  move.l d2,BEFOREWATTOP
  5078.  move.l d1,BEFOREWATBOT
  5079.  move.l d2,AFTERWATBOT
  5080.  move.l d0,AFTERWATTOP
  5081.  bra.s .belowfirst
  5082. .abovefirst:
  5083.  move.l d0,BEFOREWATTOP
  5084.  move.l d2,BEFOREWATBOT
  5085.  move.l d1,AFTERWATBOT
  5086.  move.l d2,AFTERWATTOP
  5087. .belowfirst:
  5088.  
  5089.  
  5090.  bsr dothisroom
  5091.  move.l ThisRoomToDraw+4,a0
  5092.  cmp.l LEVELGRAPHICS,a0
  5093.  beq.s noupperroom2
  5094.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5095.  
  5096.  move.l ROOMBACK,a1
  5097.  move.l ToUpperRoof(a1),TOPOFROOM
  5098.  move.l ToUpperFloor(a1),BOTOFROOM
  5099.  
  5100.  st DOUPPER
  5101.  bsr dothisroom
  5102. noupperroom2:
  5103.  
  5104. dontbothercantseeit:
  5105. pastemp:
  5106.  
  5107.  move.l (a7)+,a1
  5108.  move.l ThisRoomToDraw,a0
  5109.  move.w (a0),d7
  5110.  
  5111.  adda.w #8,a1
  5112.  bra finditit
  5113.  
  5114. nomoretodoatall:
  5115.  
  5116.  move.l (a7)+,a0
  5117.  
  5118.  bra subroomloop
  5119.  
  5120. jumpoutofrooms:
  5121.  
  5122.  tst.b DONTDOGUN
  5123.  bne NOGUNLOOK
  5124.  
  5125.  cmp.b #'s',mors
  5126.  beq.s drawslavegun
  5127.  
  5128.  moveq #0,d0
  5129.  move.b PLR1_GunSelected,d0
  5130.  moveq #0,d1
  5131.  move.b PLR1_GunFrame,d1
  5132. ; bsr DRAWINGUN
  5133.  bra drawngun
  5134.  
  5135. drawslavegun
  5136.  moveq #0,d0
  5137.  move.b PLR2_GunSelected,d0
  5138.  moveq #0,d1
  5139.  move.b PLR2_GunFrame,d1
  5140. ; bsr DRAWINGUN
  5141.  
  5142. drawngun:
  5143.  
  5144. NOGUNLOOK:
  5145.  
  5146.  moveq #0,d1
  5147.  move.b PLR1_GunFrame,d1
  5148.  sub.w TempFrames,d1
  5149.  bgt.s .nn
  5150.  moveq #0,d1
  5151. .nn
  5152.  move.b d1,PLR1_GunFrame
  5153.  
  5154.  ble.s .donefire
  5155.  sub.b #1,PLR1_GunFrame
  5156. .donefire:
  5157.  
  5158.  moveq #0,d1
  5159.  move.b PLR2_GunFrame,d1
  5160.  sub.w TempFrames,d1
  5161.  bgt.s .nn2
  5162.  moveq #0,d1
  5163. .nn2
  5164.  move.b d2,PLR2_GunFrame
  5165.  
  5166.  ble.s .donefire2
  5167.  sub.b #1,PLR2_GunFrame
  5168. .donefire2:
  5169.  
  5170.  tst.b DOANYWATER
  5171.  beq.s nowaterfull
  5172.  
  5173.  move.w #239,d0
  5174.  move.l FASTBUFFER,a0
  5175.  tst.b fillscrnwater
  5176.  beq nowaterfull
  5177.  bgt oknothalf
  5178.  moveq #119,d0
  5179.  add.l #320*120*2,a0
  5180. oknothalf:
  5181.  
  5182.  bclr.b #1,$bfe001
  5183.  
  5184.  move.l #brightentab+512*4,a2
  5185.  moveq #0,d2
  5186.  
  5187. fw:
  5188.  move.w #287,d1
  5189. fwa:
  5190.  move.b (a0),d2
  5191.  move.w (a2,d2.w*2),(a0)+
  5192.  dbra d1,fwa
  5193.  add.w #32*2,a0
  5194.  dbra d0,fw
  5195.  
  5196. ; move.l frompt,a0
  5197. ; add.l #104*4*60,a0
  5198. ; 
  5199. ; move.w #31,d0
  5200. ;fw:
  5201. ; move.w d5,d1
  5202. ; move.l a0,a1
  5203. ;fwd:
  5204. ;val SET 104*4*19
  5205. ; REPT 20
  5206. ; and.w #$ff,val(a1)
  5207. ;val SET val-104*4
  5208. ; ENDR
  5209. ; sub.l #104*4*20,a1
  5210. ; dbra d1,fwd
  5211. ; addq #4,a0
  5212. ; dbra d0,fw
  5213. ;
  5214. ; addq #4,a0
  5215. ;
  5216. ; move.w #31,d0
  5217. ;sw:
  5218. ; move.w d5,d1
  5219. ; move.l a0,a1
  5220. ;swd:
  5221. ;val SET 104*4*19
  5222. ; REPT 20
  5223. ; and.w #$ff,val(a1)
  5224. ;val SET val-104*4
  5225. ; ENDR
  5226. ; sub.l #104*4*20,a1
  5227. ; dbra d1,swd
  5228. ; addq #4,a0
  5229. ; dbra d0,sw
  5230. ;
  5231. ; addq #4,a0
  5232. ;
  5233. ; move.w #31,d0
  5234. ;tw:
  5235. ; move.w d5,d1
  5236. ; move.l a0,a1
  5237. ;twd:
  5238. ;val SET 104*4*19
  5239. ; REPT 20
  5240. ; and.w #$ff,val(a1)
  5241. ;val SET val-104*4
  5242. ; ENDR
  5243. ; sub.l #104*4*20,a1
  5244. ; dbra d1,twd
  5245. ; addq #4,a0
  5246. ; dbra d0,tw
  5247. ;
  5248.  rts
  5249.  
  5250. nowaterfull:
  5251.  bset.b #1,$bfe001
  5252.  rts
  5253.  
  5254. prot9: dc.w 0
  5255.  
  5256. TempBuffer: ds.l 100 
  5257.  
  5258. prot8: dc.w 0
  5259.  
  5260. ClipTable: ds.l 30
  5261. EndOfClipPt: dc.l 0
  5262. DOUPPER: dc.w 0
  5263.  
  5264. RealTable:
  5265.  dc.l prot1-78935450
  5266.  dc.l prot2-78935450
  5267.  dc.l prot3-78935450
  5268.  dc.l prot4-78935450
  5269.  dc.l prot5-78935450
  5270.  dc.l prot6-78935450
  5271.  dc.l prot7-78935450
  5272.  dc.l prot8-78935450
  5273.  dc.l prot9-78935450
  5274.  dc.l protA-78935450
  5275.  
  5276. dothisroom
  5277.  
  5278.  move.w (a0)+,d0
  5279.  move.w d0,currzone
  5280.  move.w d0,d1
  5281.  muls #40,d1
  5282.  add.l #BIGMAP,d1
  5283.  move.l d1,BIGPTR
  5284.  move.w d0,d1
  5285.  ext.l d1
  5286.  asl.w #2,d1
  5287.  add.l #COMPACTMAP,d1
  5288.  move.l d1,COMPACTPTR
  5289.  add.l #4,d1
  5290.  cmp.l LASTZONE,d1
  5291.  ble.s .nochange
  5292.  move.l d1,LASTZONE
  5293. .nochange:
  5294.  
  5295.  move.l #ZoneBrightTable,a1
  5296.  move.l (a1,d0.w*4),d1
  5297.  tst.b DOUPPER
  5298.  bne.s .okbot
  5299.  swap d1
  5300. .okbot:
  5301.  move.w d1,ZoneBright
  5302.  
  5303. polyloop:
  5304.  move.w (a0)+,d0
  5305.  move.w d0,WALLIDENT
  5306.  and.w #$ff,d0
  5307.  tst.b d0
  5308.  blt jumpoutofloop
  5309.  beq itsawall
  5310.  cmp.w #3,d0
  5311.  beq itsasetclip
  5312.  blt itsafloor
  5313.  cmp.w #4,d0
  5314.  beq itsanobject
  5315.  cmp.w #5,d0
  5316.  beq itsanarc
  5317.  cmp.w #6,d0
  5318.  beq itsalightbeam
  5319.  cmp.w #7,d0
  5320.  beq.s itswater
  5321.  cmp.w #9,d0
  5322.  ble itsachunkyfloor
  5323.  cmp.w #11,d0
  5324.  ble itsabumpyfloor
  5325.  cmp.w #12,d0
  5326.  beq.s itsbackdrop
  5327.  cmp.w #13,d0
  5328.  beq.s itsaseewall
  5329.  
  5330.  bra polyloop
  5331.  
  5332. itsaseewall:
  5333.  st seethru
  5334.  jsr itsawalldraw
  5335.  bra polyloop
  5336.  
  5337. itsbackdrop:
  5338.  jsr putinbackdrop
  5339.  bra polyloop
  5340.  
  5341. itswater:
  5342.  PROTHCHECK
  5343.  move.w #2,SMALLIT
  5344.  move.w #3,d0
  5345.  clr.b gourfloor
  5346.  move.l #FloorLine,LineToUse
  5347.  st usewater
  5348.  clr.b usebumps
  5349.  jsr itsafloordraw
  5350.  bra polyloop
  5351.  
  5352. itsanarc:
  5353.  jsr CurveDraw
  5354.  bra polyloop
  5355.  
  5356. itsanobject:
  5357.  jsr ObjDraw
  5358.  bra polyloop
  5359.  
  5360. itsalightbeam:
  5361.  jsr LightDraw
  5362.  bra polyloop
  5363.  
  5364. itsabumpyfloor:
  5365.  move.w #1,SMALLIT
  5366.  sub.w #9,d0
  5367.  st usebumps
  5368.  st smoothbumps
  5369.  clr.b usewater
  5370.  move.l #BumpLine,LineToUse
  5371.  jsr itsafloordraw
  5372.  bra polyloop
  5373.  
  5374. itsachunkyfloor:
  5375.  move.w #1,SMALLIT
  5376.  subq.w #7,d0
  5377.  st usebumps
  5378.  sub.w #12,topclip
  5379. ; add.w #10,botclip
  5380.  clr.b smoothbumps
  5381.  clr.b usewater
  5382.  move.l #BumpLine,LineToUse
  5383.  jsr itsafloordraw
  5384.  add.w #12,topclip
  5385. ; sub.w #10,botclip
  5386.  bra polyloop 
  5387.  
  5388. itsafloor:
  5389.  
  5390.  move.l PointBrightsPtr,FloorPtBrights
  5391.  
  5392.  move.w currzone,d1
  5393.  muls #80,d1
  5394.  
  5395.  cmp.w #2,d0
  5396.  bne.s .nfl
  5397.  add.l #2,d1
  5398. .nfl
  5399.  add.l d1,FloorPtBrights
  5400.  
  5401.  move.w #1,SMALLIT
  5402.  
  5403.  movem.l a0/d0,-(a7)
  5404.  move.l $4.w,a6
  5405.  jsr _LVOSuperState(a6)
  5406.  move.l d0,SSTACK
  5407.  movem.l (a7)+,a0/d0
  5408.  
  5409.  move.l #FloorLine,LineToUse
  5410. * 1,2 = floor/roof
  5411.  clr.b usewater
  5412.  clr.b usebumps
  5413.  move.b GOURSEL,gourfloor    
  5414.  jsr itsafloordraw
  5415.  move.l a0,-(a7)
  5416.  move.l $4.w,a6
  5417.  move.l SSTACK,d0
  5418.  jsr _LVOUserState(a6)
  5419.  move.l (a7)+,a0
  5420.  bra polyloop
  5421. itsasetclip:
  5422.  bra polyloop
  5423. itsawall:
  5424.  clr.b seethru
  5425. ; move.l #stripbuffer,a1
  5426.  jsr itsawalldraw
  5427.  bra polyloop
  5428.  
  5429. jumpoutofloop:
  5430.  rts
  5431.  
  5432. LASTZONE: dc.l 0
  5433. COMPACTPTR: dc.l 0
  5434. BIGPTR: dc.l 0
  5435. WALLIDENT: dc.w 0
  5436. SMALLIT: dc.w 0
  5437. GOURSEL: dc.w 0
  5438. ThisRoomToDraw: dc.l 0,0
  5439. SplitHeight: dc.l 0
  5440.  
  5441.  include "ab3:source_4000/OrderZones"
  5442.  
  5443. ReadMouse:
  5444.  move.l #$dff000,a6
  5445.  clr.l d0
  5446.  clr.l d1
  5447.  move.w $a(a6),d0
  5448.  lsr.w #8,d0
  5449.  ext.l d0
  5450.  move.w d0,d3
  5451.  move.w oldmy,d2
  5452.  sub.w d2,d0
  5453.  
  5454.  cmp.w #127,d0
  5455.  blt nonegy
  5456.  move.w #255,d1
  5457.  sub.w d0,d1
  5458.  move.w d1,d0
  5459.  neg.w d0
  5460. nonegy:
  5461.  
  5462.  cmp.w #-127,d0
  5463.  bge nonegy2
  5464.  move.w #255,d1
  5465.  add.w d0,d1
  5466.  move.w d1,d0
  5467. nonegy2:
  5468.  
  5469.  add.b d0,d2
  5470.  add.w d0,oldy2
  5471.  move.w d2,oldmy
  5472.  move.w d2,d0
  5473.  
  5474.  move.w oldy2,d0
  5475.  move.w d0,ymouse
  5476.  
  5477.  clr.l d0
  5478.  clr.l d1
  5479.  move.w $a(a6),d0
  5480.  ext.w d0
  5481.  ext.l d0
  5482.  move.w d0,d3
  5483.  move.w oldmx,d2
  5484.  sub.w d2,d0
  5485.  
  5486.  cmp.w #127,d0
  5487.  blt nonegx
  5488.  move.w #255,d1
  5489.  sub.w d0,d1
  5490.  move.w d1,d0
  5491.  neg.w d0
  5492. nonegx:
  5493.  
  5494.  cmp.w #-127,d0
  5495.  bge nonegx2
  5496.  move.w #255,d1
  5497.  add.w d0,d1
  5498.  move.w d1,d0
  5499. nonegx2:
  5500.  
  5501.  add.b d0,d2
  5502.  move.w d0,d1
  5503.  move.w d2,oldmx
  5504.  
  5505.  move.w #$0,$dff034
  5506.  
  5507.  add.w d0,oldx2
  5508.  move.w oldx2,d0
  5509.  and.w #2047,d0
  5510.  move.w d0,oldx2
  5511.  
  5512.  asl.w #2,d0
  5513.  sub.w prevx,d0
  5514.  add.w d0,prevx
  5515.  add.w d0,angpos
  5516.  move.w #0,lrs
  5517.  rts
  5518.  
  5519. noturn:
  5520.  
  5521. ; got to move lr instead. 
  5522.  
  5523. ; d1 = speed moved l/r
  5524.  
  5525.  move.w d1,lrs
  5526.  
  5527.  rts
  5528.  
  5529. lrs: dc.w 0
  5530. prevx: dc.w 0
  5531.  
  5532. angpos: dc.w 0
  5533. mang: dc.w 0
  5534. oldymouse: dc.w 0
  5535. xmouse: dc.w 0
  5536. ymouse: dc.w 0
  5537. oldx2: dc.w 0
  5538. oldmx: dc.w 0
  5539. oldmy: dc.w 0
  5540. oldy2: dc.w 0
  5541.  
  5542. MAPON: dc.w $ffff
  5543.  
  5544. RotateLevelPts:
  5545.  
  5546.  tst.b MAPON
  5547.  beq ONLYTHELONELY
  5548.  
  5549.  move.w sinval,d6
  5550.  swap d6
  5551.  move.w cosval,d6
  5552.  move.l Points,a3
  5553.  move.l #Rotated,a1
  5554.  move.l #OnScreen,a2
  5555.  move.w xoff,d4
  5556.  move.w zoff,d5
  5557.  
  5558. ; move.w #$c40,$dff106
  5559. ; move.w #$f00,$dff180
  5560.  
  5561.  move.w NumLevPts,d7
  5562.  
  5563.  tst.b FULLSCR
  5564.  bne BIGALL
  5565.  
  5566. pointrotlop2:
  5567.  move.w (a3)+,d0
  5568.  sub.w d4,d0
  5569.  move.w d0,d2
  5570.  move.w (a3)+,d1
  5571.  sub.w d5,d1
  5572.  muls d6,d2
  5573.  swap d6
  5574.  move.w d1,d3
  5575.  muls d6,d3
  5576.  sub.l d3,d2
  5577.  add.l d2,d2
  5578.  swap d2
  5579.  ext.l d2
  5580.  asl.l #7,d2
  5581.  add.l xwobble,d2
  5582.  move.l d2,(a1)+
  5583.  
  5584.  muls d6,d0
  5585.  swap d6
  5586.  muls d6,d1
  5587.  add.l d0,d1
  5588.  asl.l #1,d1
  5589.  swap d1
  5590. ; ext.l d1
  5591. ; divs #3,d1
  5592.  move.l d1,(a1)+
  5593.  
  5594.  tst.w d1
  5595.  bgt.s ptnotbehind
  5596.  tst.w d2
  5597.  bgt.s onrightsomewhere
  5598.  move.w #0,d2
  5599.  bra putin
  5600. onrightsomewhere:
  5601.  move.w RIGHTX,d2
  5602.  bra putin
  5603. ptnotbehind:
  5604.  
  5605.  divs d1,d2
  5606.  add.w MIDDLEX,d2
  5607. putin:
  5608.  move.w d2,(a2)+
  5609.  
  5610.  dbra d7,pointrotlop2
  5611. outofpointrot:
  5612.   rts
  5613.  
  5614.  
  5615. BIGALL:
  5616.  
  5617. pointrotlop2B:
  5618.  move.w (a3)+,d0
  5619.  sub.w d4,d0
  5620.  move.w d0,d2
  5621.  move.w (a3)+,d1
  5622.  sub.w d5,d1
  5623.  muls d6,d2
  5624.  swap d6
  5625.  move.w d1,d3
  5626.  muls d6,d3
  5627.  sub.l d3,d2
  5628.  add.l d2,d2
  5629.  swap d2
  5630.  ext.l d2
  5631.  asl.l #7,d2
  5632.  add.l xwobble,d2
  5633.  move.l d2,(a1)+
  5634.  
  5635.  muls d6,d0
  5636.  swap d6
  5637.  muls d6,d1
  5638.  add.l d0,d1
  5639.  asl.l #2,d1
  5640.  swap d1
  5641.  ext.l d1
  5642.  divs #3,d1
  5643.  move.l d1,(a1)+
  5644.  
  5645.  tst.w d1
  5646.  bgt.s ptnotbehindB
  5647.  tst.w d2
  5648.  bgt.s onrightsomewhereB
  5649.  move.w #0,d2
  5650.  bra putinB
  5651. onrightsomewhereB:
  5652.  move.w RIGHTX,d2
  5653.  bra putinB
  5654. ptnotbehindB:
  5655.  
  5656.  divs d1,d2
  5657.  add.w MIDDLEX,d2
  5658. putinB:
  5659.  move.w d2,(a2)+
  5660.  
  5661.  dbra d7,pointrotlop2B
  5662.   rts
  5663.  
  5664.  
  5665. ONLYTHELONELY:
  5666.  
  5667.  move.w sinval,d6
  5668.  swap d6
  5669.  move.w cosval,d6
  5670.  
  5671.  move.l PointsToRotatePtr,a0
  5672.  move.l Points,a3
  5673.  move.l #Rotated,a1
  5674.  move.l #OnScreen,a2
  5675.  move.w xoff,d4
  5676.  move.w zoff,d5
  5677.  
  5678. ; move.w #$c40,$dff106
  5679. ; move.w #$f00,$dff180
  5680.  
  5681.  tst.b FULLSCR
  5682.  bne BIGLONELY
  5683.  
  5684. pointrotlop:
  5685.  move.w (a0)+,d7
  5686.  blt outofpointrot
  5687.  
  5688.  move.w (a3,d7*4),d0
  5689.  sub.w d4,d0
  5690.  move.w d0,d2
  5691.  move.w 2(a3,d7*4),d1
  5692.  sub.w d5,d1
  5693.  muls d6,d2
  5694.  swap d6
  5695.  move.w d1,d3
  5696.  muls d6,d3
  5697.  sub.l d3,d2
  5698.  add.l d2,d2
  5699.  swap d2
  5700.  ext.l d2
  5701.  asl.l #7,d2
  5702.  add.l xwobble,d2
  5703.  move.l d2,(a1,d7*8)
  5704.  
  5705.  muls d6,d0
  5706.  swap d6
  5707.  muls d6,d1
  5708.  add.l d0,d1
  5709.  asl.l #1,d1
  5710.  swap d1
  5711. ; ext.l d1
  5712. ; divs #3,d1
  5713.  move.l d1,4(a1,d7*8)
  5714.  
  5715.  tst.w d1
  5716.  bgt.s .ptnotbehind
  5717.  tst.w d2
  5718.  bgt.s .onrightsomewhere
  5719.  move.w #0,d2
  5720.  bra .putin
  5721. .onrightsomewhere:
  5722.  move.w RIGHTX,d2
  5723.  bra .putin
  5724. .ptnotbehind:
  5725.  
  5726.  divs d1,d2
  5727.  add.w MIDDLEX,d2
  5728. .putin:
  5729.  move.w d2,(a2,d7*2)
  5730.  
  5731.  bra pointrotlop
  5732.  
  5733. ; move.w #$c40,$dff106
  5734. ; move.w #$ff0,$dff180
  5735.  
  5736.  rts
  5737.  
  5738. BIGLONELY:
  5739.  
  5740. .pointrotlop:
  5741.  move.w (a0)+,d7
  5742.  blt.s .outofpointrot
  5743.  
  5744.  move.w (a3,d7*4),d0
  5745.  sub.w d4,d0
  5746.  move.w d0,d2
  5747.  move.w 2(a3,d7*4),d1
  5748.  sub.w d5,d1
  5749.  muls d6,d2
  5750.  swap d6
  5751.  move.w d1,d3
  5752.  muls d6,d3
  5753.  sub.l d3,d2
  5754.  add.l d2,d2
  5755.  swap d2
  5756.  ext.l d2
  5757.  asl.l #7,d2
  5758.  add.l xwobble,d2
  5759.  move.l d2,(a1,d7*8)
  5760.  
  5761.  muls d6,d0
  5762.  swap d6
  5763.  muls d6,d1
  5764.  add.l d0,d1
  5765.  asl.l #2,d1
  5766.  swap d1
  5767.  ext.l d1
  5768.  divs #3,d1
  5769.  move.l d1,4(a1,d7*8)
  5770.  
  5771.  tst.w d1
  5772.  bgt.s .ptnotbehind
  5773.  tst.w d2
  5774.  bgt.s .onrightsomewhere
  5775.  move.w #0,d2
  5776.  bra .putin
  5777. .onrightsomewhere:
  5778.  move.w RIGHTX,d2
  5779.  bra .putin
  5780. .ptnotbehind:
  5781.  
  5782.  divs d1,d2
  5783.  add.w MIDDLEX,d2
  5784. .putin:
  5785.  move.w d2,(a2,d7*2)
  5786.  
  5787.  bra .pointrotlop
  5788.  
  5789. .outofpointrot:
  5790. ; move.w #$c40,$dff106
  5791. ; move.w #$ff0,$dff180
  5792.  
  5793.  rts
  5794.  
  5795.  
  5796. PLR1_ObjDists
  5797.  ds.w 250
  5798. PLR2_ObjDists
  5799.  ds.w 250
  5800.  
  5801. CalcPLR1InLine:
  5802.  
  5803.  move.w PLR1_sinval,d5
  5804.  move.w PLR1_cosval,d6
  5805.  move.l ObjectData,a4
  5806.  move.l ObjectPoints,a0
  5807.  move.w NumObjectPoints,d7
  5808.  move.l #PLR1_ObsInLine,a2
  5809.  move.l #PLR1_ObjDists,a3
  5810.  
  5811. .objpointrotlop:
  5812.  
  5813.  cmp.b #3,16(a4)
  5814.  beq.s .itaux
  5815.  
  5816.  move.w (a0),d0
  5817.  sub.w PLR1_xoff,d0
  5818.  move.w 4(a0),d1
  5819.  addq #8,a0
  5820.  
  5821.  tst.w 12(a4)
  5822.  blt .noworkout
  5823.  
  5824.  moveq #0,d2
  5825.  move.b 16(a4),d2
  5826.  ;move.l #ColBoxTable,a6
  5827.  ;lea (a6,d2.w*8),a6
  5828.  
  5829.  sub.w PLR1_zoff,d1
  5830.  move.w d0,d2
  5831.  muls d6,d2
  5832.  move.w d1,d3
  5833.  muls d5,d3
  5834.  sub.l d3,d2
  5835.  add.l d2,d2
  5836.  
  5837.  bgt.s .okh
  5838.  neg.l d2
  5839. .okh:
  5840.  swap d2
  5841.  
  5842.  muls d5,d0
  5843.  muls d6,d1
  5844.  add.l d0,d1
  5845.  asl.l #2,d1
  5846.  swap d1
  5847.  moveq #0,d3
  5848.  
  5849.  tst.w d1
  5850.  ble.s .notinline
  5851.  asr.w #1,d2
  5852.  cmp.w #80,d2
  5853.  bgt.s .notinline
  5854.  
  5855.  st d3
  5856. .notinline
  5857.  move.b d3,(a2)+
  5858.  
  5859.  move.w d1,(a3)+
  5860.  
  5861.  add.w #64,a4
  5862.  dbra d7,.objpointrotlop
  5863.  
  5864.  rts
  5865.  
  5866. .itaux:
  5867.  add.w #64,a4
  5868.  bra .objpointrotlop
  5869.  
  5870.  
  5871. .noworkout:
  5872.  move.b #0,(a2)+
  5873.  move.w #0,(a3)+
  5874.  add.w #64,a4
  5875.  dbra d7,.objpointrotlop
  5876.  rts
  5877.  
  5878.  
  5879. CalcPLR2InLine:
  5880.  
  5881.  move.w PLR2_sinval,d5
  5882.  move.w PLR2_cosval,d6
  5883.  move.l ObjectData,a4
  5884.  move.l ObjectPoints,a0
  5885.  move.w NumObjectPoints,d7
  5886.  move.l #PLR2_ObsInLine,a2
  5887.  move.l #PLR2_ObjDists,a3
  5888.  
  5889. .objpointrotlop:
  5890.  
  5891.  move.w (a0),d0
  5892.  sub.w PLR2_xoff,d0
  5893.  move.w 4(a0),d1
  5894.  addq #8,a0
  5895.  
  5896.  tst.w 12(a4)
  5897.  blt .noworkout
  5898.  
  5899.  moveq #0,d2
  5900.  move.b 16(a4),d2
  5901.  move.l #ColBoxTable,a6
  5902.  lea (a6,d2.w*8),a6
  5903.  
  5904.  sub.w PLR2_zoff,d1
  5905.  move.w d0,d2
  5906.  muls d6,d2
  5907.  move.w d1,d3
  5908.  muls d5,d3
  5909.  sub.l d3,d2
  5910.  add.l d2,d2
  5911.  
  5912.  bgt.s .okh
  5913.  neg.l d2
  5914. .okh:
  5915.  swap d2
  5916.  
  5917.  muls d5,d0
  5918.  muls d6,d1
  5919.  add.l d0,d1
  5920.  asl.l #2,d1
  5921.  swap d1
  5922.  moveq #0,d3
  5923.  
  5924.  tst.w d1
  5925.  ble.s .notinline
  5926.  asr.w #1,d2
  5927.  cmp.w (a6),d2
  5928.  bgt.s .notinline
  5929.  
  5930.  st d3
  5931. .notinline
  5932.  move.b d3,(a2)+
  5933.  
  5934.  move.w d1,(a3)+
  5935.  
  5936.  add.w #64,a4
  5937.  dbra d7,.objpointrotlop
  5938.  
  5939.  rts
  5940.  
  5941. .noworkout:
  5942.  move.w #0,(a3)+
  5943.  move.b #0,(a2)+
  5944.  add.w #64,a4
  5945.  dbra d7,.objpointrotlop
  5946.  rts
  5947.  
  5948.  
  5949. RotateObjectPts:
  5950.  
  5951.  move.w sinval,d5
  5952.  move.w cosval,d6
  5953.  
  5954.  move.l ObjectData,a4
  5955.  move.l ObjectPoints,a0
  5956.  move.w NumObjectPoints,d7
  5957.  move.l #ObjRotated,a1
  5958.  
  5959.  tst.b FULLSCR
  5960.  bne BIGOBJPTS
  5961.  
  5962.  
  5963. .objpointrotlop:
  5964.  
  5965.  cmp.b #3,16(a4)
  5966.  beq.s .itaux
  5967.  
  5968.  move.w (a0),d0
  5969.  sub.w xoff,d0
  5970.  move.w 4(a0),d1
  5971.  addq #8,a0
  5972.  
  5973.  tst.w 12(a4)
  5974.  blt .noworkout
  5975.  
  5976.  sub.w zoff,d1
  5977.  
  5978.  move.w d0,d2
  5979.  muls d6,d2
  5980.  move.w d1,d3
  5981.  muls d5,d3
  5982.  sub.l d3,d2
  5983.  
  5984.  
  5985.  add.l d2,d2
  5986.  swap d2
  5987.  move.w d2,(a1)+
  5988.  
  5989.  muls d5,d0
  5990.  muls d6,d1
  5991.  add.l d0,d1
  5992.  asl.l #1,d1
  5993.  swap d1
  5994. ; ext.l d1
  5995. ; divs #3,d1
  5996.  moveq #0,d3
  5997.  
  5998.  move.w d1,(a1)+
  5999.  ext.l d2
  6000.  asl.l #7,d2
  6001.  add.l xwobble,d2
  6002.  move.l d2,(a1)+
  6003.  
  6004.  dbra d7,.objpointrotlop
  6005.  
  6006.  rts
  6007.  
  6008. .itaux:
  6009.  add.w #64,a4
  6010.  bra .objpointrotlop
  6011.  
  6012. .noworkout:
  6013.   move.l #0,(a1)+
  6014.   move.l #0,(a1)+
  6015.   add.w #64,a4
  6016.   dbra d7,.objpointrotlop
  6017.   rts
  6018.   
  6019. BIGOBJPTS:
  6020.  
  6021. .objpointrotlop:
  6022.  
  6023.  cmp.b #3,16(a4)
  6024.  beq.s .itaux
  6025.  
  6026.  move.w (a0),d0
  6027.  sub.w xoff,d0
  6028.  move.w 4(a0),d1
  6029.  addq #8,a0
  6030.  
  6031.  tst.w 12(a4)
  6032.  blt .noworkout
  6033.  
  6034.  sub.w zoff,d1
  6035.  move.w d0,d2
  6036.  muls d6,d2
  6037.  move.w d1,d3
  6038.  muls d5,d3
  6039.  sub.l d3,d2
  6040.  
  6041.  
  6042.  add.l d2,d2
  6043.  swap d2
  6044.  move.w d2,(a1)+
  6045.  
  6046.  muls d5,d0
  6047.  muls d6,d1
  6048.  add.l d0,d1
  6049.  asl.l #2,d1
  6050.  swap d1
  6051.  ext.l d1
  6052.  divs #3,d1
  6053.  moveq #0,d3
  6054.  
  6055.  move.w d1,(a1)+
  6056.  ext.l d2
  6057.  asl.l #7,d2
  6058.  add.l xwobble,d2
  6059.  move.l d2,(a1)+
  6060.  sub.l xwobble,d2
  6061.  
  6062.  add.w #64,a4
  6063.  dbra d7,.objpointrotlop
  6064.  
  6065.  rts
  6066.  
  6067. .itaux:
  6068.  add.w #64,a4
  6069.  bra .objpointrotlop
  6070.  
  6071. .noworkout:
  6072.   move.l #0,(a1)+
  6073.   move.l #0,(a1)+
  6074.   add.w #64,a4
  6075.   dbra d7,.objpointrotlop
  6076.   rts
  6077.  
  6078. LightDraw:
  6079.  
  6080.  move.w (a0)+,d0
  6081.  move.w (a0)+,d1
  6082.  move.l #Rotated,a1
  6083.  move.w 6(a1,d0.w*8),d2
  6084.  ble.s oneendbehind
  6085.  move.w 6(a1,d1.w*8),d3
  6086.  bgt.s bothendsinfront
  6087.  
  6088. oneendbehind:
  6089.  rts
  6090. bothendsinfront:
  6091.  
  6092.  move.l #OnScreen,a2
  6093.  move.w (a2,d0.w*2),d0
  6094.  bge.s okleftend
  6095.  moveq #0,d0
  6096. okleftend:
  6097.  move.w (a2,d1.w*2),d1
  6098.  bgt.s somevis
  6099.  rts
  6100. somevis:
  6101.  cmp.w RIGHTX,d0
  6102.  blt.s somevis2
  6103.  rts
  6104. somevis2:
  6105.  cmp.w RIGHTX,d1
  6106.  blt.s okrightend
  6107.  move.w RIGHTX,d1
  6108.  subq #1,d1
  6109. okrightend:
  6110.  
  6111.  sub.w d0,d1
  6112.  blt.s wrongbloodywayround
  6113.  move.l #brightentab,a4
  6114.  move.l #objintocop,a1
  6115.  lea (a1,d0.w*2),a1
  6116.  
  6117.  move.l frompt,a3
  6118.  move.w #104*4,d6
  6119.  move.w #79,d2
  6120. lacross:
  6121.  move.w d2,d3
  6122.  move.l a3,a2
  6123.  adda.w (a1)+,a2
  6124. ldown:
  6125.  add.w d6,a2
  6126.  move.w (a2),d7
  6127.  move.w (a4,d7.w*2),(a2)
  6128.  dbra d3,ldown
  6129.  dbra d1,lacross
  6130.  
  6131. wrongbloodywayround:
  6132.  
  6133.  rts
  6134.  
  6135. FaceToPlace: dc.w 0
  6136.  
  6137. Cheese:
  6138.  dc.w 4,15
  6139.  
  6140. FacesList:
  6141.  dc.w 0,4*4
  6142.  dc.w 1,2*4
  6143.  dc.w 0,2*4
  6144.  dc.w 2,2*4
  6145.  dc.w 0,2*4
  6146.  dc.w 1,3*4
  6147.  dc.w 0,2*4
  6148.  dc.w 2,3*4
  6149.  dc.w 0,5*4
  6150.  dc.w 1,2*4
  6151.  dc.w 0,2*4
  6152.  dc.w 2,2*4
  6153.  dc.w 0,2*4
  6154.  dc.w 1,2*4
  6155.  dc.w 0,2*4
  6156.  dc.w 2,3*4
  6157.  dc.w 0,1*4
  6158.  dc.w 1,3*4
  6159.  dc.w 0,1*4
  6160.  dc.w 2,3*4
  6161.  dc.w 0,1*4
  6162.  
  6163. EndOfFacesList:
  6164.  
  6165. FacesPtr:
  6166.  dc.l FacesList
  6167. FacesCounter:
  6168.  dc.w 0
  6169. Expression:
  6170.  dc.w 0
  6171.  
  6172. PlaceFace:
  6173.  
  6174.  move.w FacesCounter,d0
  6175.  subq #1,d0
  6176.  bgt.s NoNewFace
  6177.  
  6178.  move.l FacesPtr,a0
  6179.  
  6180.  move.w 2(a0),d0
  6181.  move.w (a0),Expression
  6182.  addq #4,a0
  6183.  cmp.l #EndOfFacesList,a0
  6184.  blt.s NotFirstFace
  6185.  
  6186.  move.l #FacesList,a0
  6187.  
  6188. NotFirstFace
  6189.  move.l a0,FacesPtr
  6190.  
  6191. NoNewFace:
  6192.  
  6193.  move.w d0,FacesCounter
  6194.  
  6195.  Move.w FaceToPlace,d0
  6196.  muls #5,d0
  6197.  add.w Expression,d0
  6198.  move.l #FacePlace+10,a0
  6199.  move.l #Faces,a1
  6200.  muls #(4*32*5),d0
  6201.  adda.w d0,a1
  6202.  move.w #4,d0
  6203.  move.w #24,d1
  6204.  
  6205.  move.w #4,d3
  6206. bitplaneloop:
  6207.  move.w #31,d2
  6208. PlaceFaceToPlaceInFacePlaceLoop:
  6209.  move.l (a1),(a0)
  6210.  adda.w d0,a1
  6211.  adda.w d1,a0
  6212.  dbra d2,PlaceFaceToPlaceInFacePlaceLoop
  6213.  dbra d3,bitplaneloop
  6214.  
  6215.  rts
  6216.  
  6217. Energy:
  6218.  dc.w 191
  6219. OldEnergy:
  6220.  dc.w 191
  6221. Ammo: dc.w 63
  6222. OldAmmo: dc.w 63
  6223.  
  6224. FullEnergy:
  6225.  move.w #127,Energy
  6226.  move.w #127,OldEnergy
  6227.  move.l #health,a0
  6228.  move.l #borders,a1
  6229.  add.l #25*8*2+6,a1
  6230.  lea 2592(a1),a2
  6231.  move.w #127,d0
  6232. PutInFull:
  6233.  move.b (a0)+,(a1)
  6234.  move.b (a0)+,8(a1)
  6235.  add.w #16,a1
  6236.  move.b (a0)+,(a2)
  6237.  move.b (a0)+,8(a2)
  6238.  add.w #16,a2
  6239.  dbra d0,PutInFull
  6240.  
  6241.  rts
  6242.  
  6243. ;EnergyBar:
  6244.  
  6245.  move.w Energy,d0
  6246.  bgt.s .noeneg
  6247.  move.w #0,d0
  6248. .noeneg:
  6249.  move.w d0,Energy
  6250.  
  6251.  cmp.w OldEnergy,d0
  6252.  bne.s gottochange
  6253.  
  6254. NoChange
  6255.  rts
  6256.  
  6257. gottochange:
  6258.   
  6259.  blt LessEnergy
  6260.  cmp.w #127,Energy
  6261.  blt.s NotMax
  6262.  move.w #127,Energy
  6263. NotMax:
  6264.  
  6265.  move.w Energy,d0
  6266.  move.w OldEnergy,d2
  6267.  sub.w d0,d2
  6268.  beq.s NoChange    
  6269.  neg.w d2
  6270.  
  6271.  move.w #127,d3
  6272.  sub.w d0,d3
  6273.  
  6274.  move.l #health,a0
  6275.  lea (a0,d3.w*4),a0
  6276.  move.l #borders+25*16+6,a1
  6277.  lsl.w #4,d3
  6278.  add.w d3,a1
  6279.  lea 2592(a1),a2
  6280.  
  6281. EnergyRise:
  6282.  move.b (a0)+,(a1)
  6283.  move.b (a0)+,8(a1)
  6284.  add.w #16,a1
  6285.  move.b (a0)+,(a2)
  6286.  move.b (a0)+,8(a2)
  6287.  add.w #16,a2
  6288.  subq #1,d2
  6289.  bgt.s EnergyRise
  6290.  
  6291.  move.w Energy,OldEnergy
  6292.  
  6293.  rts 
  6294.  
  6295. LessEnergy: 
  6296.  move.w OldEnergy,d2
  6297.  sub.w d0,d2
  6298.  
  6299.  move.w #127,d3
  6300.  sub.w OldEnergy,d3
  6301.  
  6302.  move.l #borders+25*16+6,a1
  6303.  asl.w #4,d3
  6304.  add.w d3,a1
  6305.  lea 2592(a1),a2
  6306.  
  6307. EnergyDrain:
  6308.  move.b #0,(a1)
  6309.  move.b #0,8(a1)
  6310.  move.b #0,(a2)
  6311.  move.b #0,8(a2)
  6312.  add.w #16,a1
  6313.  add.w #16,a2
  6314.  subq #1,d2
  6315.  bgt.s EnergyDrain
  6316.  
  6317.  move.w Energy,OldEnergy
  6318.  
  6319.  rts 
  6320.  
  6321. firstdigit: dc.b 0
  6322. secdigit: dc.b 0
  6323. thirddigit: dc.b 0
  6324.  
  6325.  even
  6326.  
  6327. AmmoBar:
  6328.  
  6329. * Do guns first.
  6330.  
  6331.  move.l #borderchars,a4
  6332.  move.l #PLAYERONEGUNS,a5
  6333.  move.w #9,d2
  6334.  moveq #0,d0
  6335. putingunnums:
  6336.  move.w #4,d1
  6337.  move.l a4,a0
  6338.  cmp.b p1_gunselected,d0
  6339.  bne.s .notsel
  6340.  add.l #5*10*8*2,a0
  6341.  addq #2,a5
  6342.  bra.s .donesel
  6343. .notsel:
  6344.  tst.w (a5)+
  6345.  beq.s .donesel
  6346.  add.l #5*10*8,a0
  6347. .donesel:
  6348.  move.l SCRNDRAWPT,a1
  6349.  add.w d0,a1
  6350.  add.l #3+(248*40),a1
  6351.  bsr DRAWDIGIT
  6352.  addq #1,d0
  6353.  dbra d2,putingunnums
  6354.  
  6355.  move.w Ammo,d0
  6356.  ext.l d0
  6357.  divs #10,d0
  6358.  swap d0
  6359.  move.b d0,thirddigit
  6360.  swap d0
  6361.  ext.l d0
  6362.  divs #10,d0
  6363.  move.b d0,firstdigit
  6364.  swap d0
  6365.  move.b d0,secdigit
  6366.  
  6367.  move.l #borderchars+15*8*10,a0
  6368.  cmp.w #10,Ammo
  6369.  blt.s .notsmallamo
  6370.  add.l #7*8*10,a0
  6371. .notsmallamo:
  6372.  
  6373.  move.l SCRNDRAWPT,a1
  6374.  add.l #20+246*40,a1
  6375.  move.b firstdigit,d0
  6376.  move.w #6,d1
  6377.  bsr DRAWDIGIT
  6378.  
  6379.  move.l SCRNDRAWPT,a1
  6380.  add.l #21+246*40,a1
  6381.  move.b secdigit,d0
  6382.  move.w #6,d1
  6383.  bsr DRAWDIGIT
  6384.  
  6385.  move.l SCRNDRAWPT,a1
  6386.  add.l #22+246*40,a1
  6387.  move.b thirddigit,d0
  6388.  move.w #6,d1
  6389.  bsr DRAWDIGIT
  6390.  
  6391.  rts
  6392.  
  6393. EnergyBar
  6394.  move.w Energy,d0
  6395.  ext.l d0
  6396.  divs #10,d0
  6397.  swap d0
  6398.  move.b d0,thirddigit
  6399.  swap d0
  6400.  ext.l d0
  6401.  divs #10,d0
  6402.  move.b d0,firstdigit
  6403.  swap d0
  6404.  move.b d0,secdigit
  6405.  
  6406.  move.l #borderchars+15*8*10,a0
  6407.  cmp.w #10,Energy
  6408.  blt.s .notsmallamo
  6409.  add.l #7*8*10,a0
  6410. .notsmallamo:
  6411.  
  6412.  move.l SCRNDRAWPT,a1
  6413.  add.l #34+246*40,a1
  6414.  move.b firstdigit,d0
  6415.  move.w #6,d1
  6416.  bsr DRAWDIGIT
  6417.  
  6418.  move.l SCRNDRAWPT,a1
  6419.  add.l #35+246*40,a1
  6420.  move.b secdigit,d0
  6421.  move.w #6,d1
  6422.  bsr DRAWDIGIT
  6423.  
  6424.  move.l SCRNDRAWPT,a1
  6425.  add.l #36+246*40,a1
  6426.  move.b thirddigit,d0
  6427.  move.w #6,d1
  6428.  bsr DRAWDIGIT
  6429.  
  6430.  rts
  6431.  
  6432.  
  6433. DRAWDIGIT:
  6434.  ext.w d0
  6435.  lea (a0,d0.w),a2
  6436. charlines:
  6437.  lea 30720(a1),a3 
  6438.  move.b (a2),(a1)
  6439.  move.b 10(a2),10240(a1)
  6440.  move.b 20(a2),20480(a1)
  6441.  move.b 30(a2),(a3)
  6442.  move.b 40(a2),10240(a3)
  6443.  move.b 50(a2),20480(a3)
  6444.  lea 30720(a3),a3
  6445.  move.b 60(a2),(a3)
  6446.  move.b 70(a2),10240(a3)
  6447.  
  6448.  add.w #10*8,a2
  6449.  add.w #40,a1
  6450.  dbra d1,charlines
  6451.  
  6452.  rts
  6453.  
  6454. borderchars: incbin "ab3:includes/bordercharsRAW"
  6455.  
  6456. ; cmp.w OldAmmo,d0
  6457. ; bne.s .gottochange
  6458. ; 
  6459. .NoChange
  6460.  rts
  6461.  
  6462. .gottochange:
  6463.   
  6464.  blt LessAmmo
  6465.  cmp.w #63,Ammo
  6466.  blt.s .NotMax
  6467.  move.w #63,Ammo
  6468. .NotMax:
  6469.  
  6470.  move.w Ammo,d0
  6471.  move.w OldAmmo,d2
  6472.  sub.w d0,d2
  6473.  beq.s .NoChange
  6474.  neg.w d2
  6475.  
  6476.  move.w #63,d3
  6477.  sub.w d0,d3
  6478.  
  6479.  move.l #Ammunition,a0
  6480.  lea (a0,d3.w*8),a0
  6481.  move.l #borders+5184+25*16+1,a1
  6482.  lsl.w #5,d3
  6483.  add.w d3,a1
  6484.  lea 2592(a1),a2
  6485.  
  6486. AmmoRise:
  6487.  move.b (a0)+,(a1)
  6488.  move.b (a0)+,8(a1)
  6489.  add.w #16,a1
  6490.  move.b (a0)+,(a2)
  6491.  move.b (a0)+,8(a2)
  6492.  add.w #16,a2
  6493.  move.b (a0)+,(a1)
  6494.  move.b (a0)+,8(a1)
  6495.  add.w #16,a1
  6496.  move.b (a0)+,(a2)
  6497.  move.b (a0)+,8(a2)
  6498.  add.w #16,a2
  6499.  subq #1,d2
  6500.  bgt.s AmmoRise
  6501.  
  6502.  move.w Ammo,OldAmmo
  6503.  
  6504.  rts 
  6505.  
  6506.  
  6507. LessAmmo: 
  6508.  move.w OldAmmo,d2
  6509.  sub.w d0,d2
  6510.  
  6511.  move.w #63,d3
  6512.  sub.w OldAmmo,d3
  6513.  
  6514.  move.l #borders++5184+25*16+1,a1
  6515.  asl.w #5,d3
  6516.  add.w d3,a1
  6517.  lea 2592(a1),a2
  6518.  
  6519. AmmoDrain:
  6520.  move.b #0,(a1)
  6521.  move.b #0,8(a1)
  6522.  move.b #0,(a2)
  6523.  move.b #0,8(a2)
  6524.  add.w #16,a1
  6525.  add.w #16,a2
  6526.  move.b #0,(a1)
  6527.  move.b #0,8(a1)
  6528.  move.b #0,(a2)
  6529.  move.b #0,8(a2)
  6530.  add.w #16,a1
  6531.  add.w #16,a2
  6532.  subq #1,d2
  6533.  bgt.s AmmoDrain
  6534.  
  6535.  move.w Ammo,OldAmmo
  6536.  
  6537.  rts 
  6538.  
  6539. nulop:
  6540.  move.w #$0010,$dff000+intreq
  6541.  rte
  6542.  
  6543. doanything: dc.w 0
  6544.  
  6545. end:
  6546. ;     _break #0
  6547.  
  6548.  clr.b dosounds
  6549.  clr.b doanything
  6550.  
  6551.  move.w PLAYERONEHEALTH,Energy
  6552.  cmp.b #'s',mors
  6553.  bne.s .notsl
  6554.  move.w PLR2_energy,Energy
  6555. .notsl:
  6556.  
  6557.  bsr EnergyBar
  6558.  
  6559.  move.l drawpt,d0
  6560.  move.l olddrawpt,drawpt
  6561.  move.l d0,olddrawpt
  6562.  move.l d0,$dff084
  6563.  
  6564.  
  6565.  cmp.b #'b',Prefsfile+3
  6566.  bne.s .noback
  6567.  jsr mt_end
  6568. .noback
  6569.  tst.w Energy
  6570.  bgt.s wevewon
  6571.  
  6572.  move.l #gameover,mt_data
  6573.  st UseAllChannels
  6574.  clr.b reachedend
  6575.  jsr mt_init
  6576. playgameover:
  6577.  move.l #$dff000,a6
  6578. waitfortop2:
  6579.  
  6580.     
  6581.  btst.b #0,intreqrl(a6)
  6582.  beq waitfortop2
  6583.  move.w #$1,intreq(a6)
  6584.  
  6585.     
  6586.  jsr mt_music
  6587.  
  6588.  
  6589.     
  6590.  tst.b reachedend
  6591.  beq.s playgameover
  6592.  
  6593.  bra wevelost
  6594.  
  6595.  
  6596. wevewon:
  6597.  
  6598.  cmp.b #'n',mors
  6599.  bne.s .nonextlev
  6600.  add.w #1,MAXLEVEL
  6601.  st FINISHEDLEVEL
  6602. .nonextlev:
  6603.  
  6604.  move.l #welldone,mt_data
  6605.  st UseAllChannels
  6606.  clr.b reachedend
  6607.  jsr mt_init
  6608. playwelldone:
  6609.  move.l #$dff000,a6
  6610. waitfortop3:
  6611.  btst.b #0,intreqrl(a6)
  6612.  beq waitfortop3
  6613.  move.w #$1,intreq(a6)
  6614.  
  6615.  jsr mt_music
  6616.  
  6617.  tst.b reachedend
  6618.  beq.s playwelldone
  6619.  
  6620. wevelost:
  6621.  
  6622.  PROTICHECK a0
  6623.  
  6624.  jmp closeeverything 
  6625.  
  6626. endnomusic
  6627.  clr.b doanything
  6628.  cmp.b #'b',Prefsfile+3
  6629.  bne.s .noback
  6630.  jsr mt_end
  6631. .noback
  6632. *******************************
  6633. ; cmp.b #'n',mors
  6634. ; bne.s .nonextlev
  6635. ; cmp.w #15,MAXLEVEL
  6636. ; bge.s .nonextlev
  6637. ; add.w #1,MAXLEVEL
  6638. ; st FINISHEDLEVEL
  6639. ;.nonextlev:
  6640. ******************************
  6641.  
  6642.  jmp closeeverything
  6643.  
  6644. do32:
  6645.  move.w #31,d7
  6646.  move.w #$180,d1
  6647. across:
  6648.  move.w d1,(a1)+
  6649.  move.w d1,(a3)+
  6650.  move.w #0,(a1)+ 
  6651.  move.w #0,(a3)+
  6652.  add.w #2,d1
  6653.  dbra d7,across
  6654.  rts
  6655.  
  6656. string:
  6657.     dc.b    'credits',0
  6658.  
  6659. ENDGAMESCROLL:
  6660.  
  6661.     move.l    4.w,a6
  6662.     move.l    #string,d1
  6663.     moveq    #0,d2
  6664.     moveq    #0,d3
  6665.     jsr    _LVOExecute(a6)
  6666.  
  6667. ; include "endscroll.s"
  6668.  
  6669. ***********************************
  6670.  include "ab3:source_4000/CD32JOY"
  6671.  
  6672.  
  6673.  
  6674. *************************************
  6675. * Set left and right clip values
  6676. *************************************
  6677.  
  6678.  
  6679.  
  6680. NEWsetlclip:
  6681.  move.l #OnScreen,a1
  6682.  move.l #Rotated,a2
  6683.  move.l CONNECT_TABLE,a3
  6684.  
  6685.  move.w (a0),d0
  6686.  bge.s .notignoreleft
  6687.  
  6688. ; move.l #0,(a6)
  6689.  
  6690.  bra .leftnotoktoclip
  6691. .notignoreleft:
  6692.  
  6693.  move.w 6(a2,d0*8),d3    ; left z val
  6694.  bgt.s .leftclipinfront
  6695.  addq #2,a0
  6696.  rts
  6697.  
  6698.  tst.w 6(a2,d0*8)
  6699.  bgt.s .leftnotoktoclip
  6700. .ignoreboth:
  6701. ; move.l #0,(a6)
  6702. ; move.l #96*65536,4(a6)
  6703.  move.w #0,leftclip
  6704.  move.w RIGHTX,rightclip
  6705.  addq #8,a6
  6706.  addq #2,a0
  6707.  rts
  6708.  
  6709. .leftclipinfront:
  6710.  move.w (a1,d0*2),d1    ; left x on screen
  6711.  move.w (a0),d2
  6712.  move.w 2(a3,d2.w*4),d2
  6713.  move.w (a1,d2.w*2),d2
  6714.  cmp.w d1,d2
  6715.  bgt.s .leftnotoktoclip
  6716.  
  6717. ; move.w d1,(a6)
  6718. ; move.w d3,2(a6)
  6719.  cmp.w leftclip,d1
  6720.  ble.s .leftnotoktoclip
  6721.  move.w d1,leftclip
  6722. .leftnotoktoclip:
  6723.  
  6724.  addq #2,a0
  6725.  
  6726.  rts
  6727.  
  6728. NEWsetrclip
  6729.  move.l #OnScreen,a1
  6730.  move.l #Rotated,a2
  6731.  move.l CONNECT_TABLE,a3
  6732.  move.w (a0),d0
  6733.  bge.s .notignoreright
  6734. ; move.w #96,4(a6)
  6735. ; move.w #0,6(a6)
  6736.  move.w #0,d4
  6737.  bra .rightnotoktoclip
  6738. .notignoreright:
  6739.  move.w 6(a2,d0*8),d4    ; right z val
  6740.  bgt.s .rightclipinfront
  6741. ; move.w #96,4(a6)
  6742. ; move.w #0,6(a6)
  6743.  bra.s .rightnotoktoclip
  6744.  
  6745. .rightclipinfront:
  6746.  move.w (a1,d0*2),d1    ; right x on screen
  6747.  move.w (a0),d2
  6748.  move.w (a3,d2.w*4),d2
  6749.  move.w (a1,d2.w*2),d2
  6750.  cmp.w d1,d2
  6751.  blt.s .rightnotoktoclip
  6752. ; move.w d1,4(a6)
  6753. ; move.w d4,6(a6)
  6754.  
  6755.  cmp.w rightclip,d1
  6756.  bge.s .rightnotoktoclip
  6757.  addq #1,d1
  6758.  move.w d1,rightclip
  6759. .rightnotoktoclip:
  6760.  addq #8,a6
  6761.  addq #2,a0
  6762.  rts
  6763.  
  6764. FIRSTsetlrclip:
  6765.  move.l #OnScreen,a1
  6766.  move.l #Rotated,a2
  6767.  
  6768.  move.w (a0)+,d0
  6769.  bge.s .notignoreleft
  6770.  bra .leftnotoktoclip
  6771. .notignoreleft:
  6772.  
  6773.  move.w 6(a2,d0*8),d3    ; left z val
  6774.  bgt.s .leftclipinfront
  6775.  
  6776.  move.w (a0),d0
  6777.  blt.s .ignoreboth
  6778.  tst.w 6(a2,d0*8)
  6779.  bgt.s .leftnotoktoclip
  6780. .ignoreboth
  6781.  move.w RIGHTX,rightclip
  6782.  move.w #0,leftclip
  6783.  addq #2,a0
  6784.  rts
  6785.  
  6786. .leftclipinfront:
  6787.  move.w (a1,d0*2),d1    ; left x on screen
  6788.  cmp.w leftclip,d1
  6789.  ble.s .leftnotoktoclip
  6790.  move.w d1,leftclip
  6791. .leftnotoktoclip:
  6792.  
  6793.  move.w (a0)+,d0
  6794.  bge.s .notignoreright
  6795.  move.w #0,d4
  6796.  bra .rightnotoktoclip
  6797. .notignoreright:
  6798.  move.w 6(a2,d0*8),d4    ; right z val
  6799.  ble.s .rightnotoktoclip
  6800.  
  6801. .rightclipinfront:
  6802.  move.w (a1,d0*2),d1    ; right x on screen
  6803.  addq #1,d1
  6804.  cmp.w rightclip,d1
  6805.  bge.s .rightnotoktoclip
  6806.  move.w d1,rightclip
  6807. .rightnotoktoclip:
  6808.  
  6809. ; move.w leftclip,d0
  6810. ; move.w rightclip,d1
  6811. ; cmp.w d0,d1
  6812. ; bge.s .noswap
  6813. ; move.w #192,rightclip
  6814. ; move.w #0,leftclip
  6815. ;.noswap:
  6816.  
  6817.  rts
  6818.  
  6819.  
  6820. leftclip2: dc.w 0
  6821. rightclip2: dc.w 0
  6822. ZoneBright: dc.w 0
  6823.  
  6824. npolys: dc.w 0
  6825.  
  6826. PLR1_fire: dc.b 0
  6827. PLR2_fire: dc.b 0
  6828.  
  6829. *****************************************************
  6830.  
  6831.  
  6832. pastdata:
  6833. ***********************************
  6834. * This routine animates brightnesses.
  6835.  
  6836.  
  6837. liftpt: dc.l liftanimtab
  6838.  
  6839. brightpt:
  6840.  dc.l brightanimtab
  6841.  
  6842.  
  6843. liftanim:
  6844.  rts
  6845.  
  6846. ******************************
  6847.  include "ab3:source_4000/ObjectMove"
  6848.  include "ab3:source_4000/newAnims"
  6849.  include "ab3:source_4000/airoutine.s"
  6850. ******************************
  6851. startpass:
  6852. ; include "ab3:source_4000/password_reloc.s"
  6853. endpass:
  6854.  
  6855. rotanimpt: dc.w 0
  6856. xradd: dc.w 5
  6857. yradd: dc.w 8
  6858. xrpos: dc.w 320
  6859. yrpos: dc.w 320
  6860.  
  6861. rotanim:
  6862.  rts
  6863.  
  6864. option:
  6865.  dc.l 0,0
  6866.  
  6867. ********** WALL STUFF *******************************
  6868.  
  6869.  include "AB3:source_4000/hireswall.s"
  6870.  include "AB3:source_4000/hiresgourwall.s"
  6871.  
  6872. *****************************************************
  6873.  
  6874. ******************************************
  6875. * floor polygon
  6876.  
  6877. numsidestd: dc.w 0
  6878. bottomline: dc.w 0
  6879.  
  6880. checkforwater:
  6881.  tst.b usewater
  6882.  beq.s .notwater
  6883.  
  6884.  move.l Roompt,a1
  6885.  move.w (a1),d7
  6886.  cmp.w currzone,d7
  6887.  bne.s .notwater
  6888.  
  6889.  move.b #$f,fillscrnwater
  6890.  
  6891. .notwater:
  6892.  move.w (a0)+,d6    ; sides-1
  6893.  add.w d6,d6
  6894.  add.w d6,a0
  6895.  add.w #4+6,a0
  6896.  rts
  6897.  
  6898.  rts
  6899.  
  6900. NewCornerBuff:
  6901.  ds.l 100
  6902. CLRNOFLOOR: dc.w 0
  6903.  
  6904. itsafloordraw:
  6905.  
  6906. * If D0 =1 then its a floor otherwise (=2) it's
  6907. * a roof.
  6908.  
  6909.  move.w #0,above
  6910.  move.w (a0)+,d6    ; ypos of poly
  6911.  
  6912.  tst.b usewater
  6913.  beq.s .oknon
  6914.  tst.b DOANYWATER
  6915.  beq dontdrawreturn
  6916. .oknon
  6917.  
  6918.  move.w d6,d7
  6919.  ext.l d7
  6920.  asl.l #6,d7
  6921.  cmp.l TOPOFROOM,d7
  6922.  blt checkforwater
  6923.  cmp.l BOTOFROOM,d7
  6924.  bgt.s dontdrawreturn
  6925.  
  6926.  move.w leftclip,d7
  6927.  cmp.w rightclip,d7
  6928.  bge.s dontdrawreturn
  6929.  
  6930.  sub.w flooryoff,d6
  6931.  bgt.s below
  6932.  blt.s aboveplayer
  6933.  
  6934.  tst.b usewater
  6935.  beq.s .notwater
  6936.  
  6937.  move.l Roompt,a1
  6938.  move.w (a1),d7
  6939.  cmp.w currzone,d7
  6940.  
  6941.  bne.s .notwater
  6942.  
  6943.  st fillscrnwater
  6944.  
  6945. .notwater:
  6946.  
  6947.  
  6948. dontdrawreturn:
  6949.  move.w (a0)+,d6    ; sides-1
  6950.  add.w d6,d6
  6951.  add.w d6,a0
  6952.  add.w #4+6,a0
  6953.  rts
  6954. aboveplayer:
  6955.  
  6956.  tst.b usewater
  6957.  beq.s .notwater
  6958.  
  6959.  move.l Roompt,a1
  6960.  move.w (a1),d7
  6961.  cmp.w currzone,d7
  6962.  bne.s .notwater
  6963.  
  6964.  move.b #$f,fillscrnwater
  6965.  
  6966. .notwater:
  6967.  
  6968.  btst #1,d0
  6969.  beq.s dontdrawreturn
  6970.  move.w MIDDLEY,d7
  6971.  sub.w topclip,d7 
  6972.  ble.s dontdrawreturn
  6973.  move.w #1,d0
  6974.  move.w d0,above
  6975.  neg.w d6
  6976.  bra.s notbelow
  6977. below:
  6978.  move.w botclip,d7
  6979.  sub.w MIDDLEY,d7
  6980.  ble.s dontdrawreturn
  6981. notbelow:
  6982.  btst #0,d0
  6983.  beq.s dontdrawreturn
  6984.  move.w d6,distaddr
  6985.  muls #64,d6
  6986.  move.l d6,ypos
  6987.  ext.l d7
  6988.  divs.l d7,d6        ; zpos of bottom
  6989.             ; visible line
  6990.  
  6991.  beq dontdrawreturn
  6992.  
  6993.  cmp.l #32767,d6
  6994.  bgt dontdrawreturn
  6995.             
  6996.  move.w d6,minz
  6997.  move.w d7,bottomline
  6998.  
  6999. ; Go round each point finding out
  7000. ; if it should be visible or not.
  7001.  
  7002.  move.l a0,-(a7)
  7003.  
  7004.  move.w (a0)+,d7    ; number of sides
  7005.  move.l #Rotated,a1
  7006.  move.l #OnScreen,a2
  7007.  move.l #NewCornerBuff,a3
  7008.  moveq #0,d4
  7009.  moveq #0,d5
  7010.  moveq #0,d6
  7011.  clr.b anyclipping
  7012.  
  7013. cornerprocessloop:
  7014.  
  7015.  move.w (a0)+,d0
  7016.  and.w #$fff,d0
  7017.  move.w 6(a1,d0.w*8),d1
  7018.  ble  .canttell
  7019.  
  7020.  move.w (a2,d0.w*2),d3
  7021.  cmp.w leftclip,d3
  7022.  bgt.s .nol
  7023.  st d4
  7024.  st anyclipping
  7025.  bra.s .nos
  7026. .nol:
  7027.  cmp.w rightclip,d3
  7028.  blt.s .nor
  7029.  st d6
  7030.  st anyclipping
  7031.  bra.s .nos
  7032. .nor:
  7033.  st d5
  7034. .nos:
  7035.  bra .cantell
  7036.  
  7037. .canttell:
  7038.  st d5
  7039.  st anyclipping
  7040.  
  7041. .cantell:
  7042.  
  7043.  
  7044.  dbra d7,cornerprocessloop
  7045.  
  7046.  
  7047.  move.l (a7)+,a0
  7048.  tst.b d5
  7049.  bne.s somefloortodraw
  7050.  eor.b d4,d6
  7051.  bne dontdrawreturn
  7052.  
  7053. somefloortodraw:
  7054.  
  7055.  tst.b gourfloor
  7056.  bne goursides
  7057.  
  7058.  move.w #300,top
  7059.  move.w #-1,bottom
  7060.  move.w #0,drawit
  7061.  move.l #Rotated,a1
  7062.  move.l #OnScreen,a2
  7063.  move.w (a0)+,d7    ; no of sides
  7064. sideloop:
  7065.  move.w minz,d6
  7066.  move.w (a0)+,d1
  7067.  move.w (a0),d3
  7068.  and.w #$fff,d1
  7069.  and.w #$fff,d3
  7070.  
  7071.  move.w 6(a1,d1*8),d4    ;first z
  7072.  cmp.w d6,d4
  7073.  bgt firstinfront
  7074.  move.w 6(a1,d3*8),d5    ; sec z
  7075.  cmp.w d6,d5
  7076.  ble bothbehind
  7077. ** line must be on left and partially behind.
  7078.  sub.w d5,d4
  7079.  move.l (a1,d1*8),d0
  7080.  sub.l (a1,d3*8),d0
  7081.  asr.l #7,d0
  7082.  sub.w d5,d6
  7083.  muls d6,d0    ; new x coord
  7084.  divs d4,d0
  7085.  ext.l d0
  7086.  asl.l #7,d0
  7087.  
  7088.  add.l (a1,d3*8),d0
  7089.  move.w minz,d4
  7090.  move.w (a2,d3*2),d2
  7091.  divs d4,d0
  7092.  add.w MIDDLEX,d0
  7093.  move.l ypos,d3
  7094.  divs d5,d3
  7095.  move.w bottomline,d1 
  7096.  bra lineclipped
  7097.  
  7098. firstinfront:
  7099.  move.w 6(a1,d3*8),d5    ; sec z
  7100.  cmp.w d6,d5
  7101.  bgt bothinfront
  7102. ** line must be on right and partially behind.
  7103.  sub.w d4,d5    ; dz
  7104.  move.l (a1,d3*8),d2
  7105.  sub.l (a1,d1*8),d2    ; dx
  7106.  sub.w d4,d6
  7107.  asr.l #7,d2
  7108.  muls d6,d2    ; new x coord
  7109.  divs d5,d2
  7110.  ext.l d2
  7111.  asl.l #7,d2
  7112.  add.l (a1,d1*8),d2
  7113.  move.w minz,d5
  7114.  move.w (a2,d1*2),d0
  7115.  divs d5,d2
  7116.  add.w MIDDLEX,d2
  7117.  move.l ypos,d1
  7118.  divs d4,d1
  7119.  move.w bottomline,d3 
  7120.  bra lineclipped
  7121.  
  7122. bothinfront:
  7123.  
  7124. * Also, usefully enough, both are on-screen
  7125. * so no bottom clipping is needed.
  7126.  
  7127.  move.w (a2,d1*2),d0    ; first x
  7128.  move.w (a2,d3*2),d2    ; second x
  7129.  move.l ypos,d1
  7130.  move.l d1,d3
  7131.  divs d4,d1        ; first y
  7132.  divs d5,d3        ; second y
  7133. lineclipped:
  7134.  move.l #rightsidetab,a3
  7135.  cmp.w d1,d3
  7136.  beq lineflat
  7137.  st drawit
  7138.  bgt lineonright
  7139.  move.l #leftsidetab,a3
  7140.  exg d1,d3
  7141.  exg d0,d2
  7142.  
  7143.  lea (a3,d1*2),a3
  7144.  
  7145.  cmp.w top(pc),d1
  7146.  bge.s .nonewtop
  7147.  move.w d1,top
  7148. .nonewtop:
  7149.  cmp.w bottom(pc),d3
  7150.  ble.s .nonewbot
  7151.  move.w d3,bottom
  7152. .nonewbot:
  7153.  
  7154.  sub.w d1,d3    ; dy
  7155.  sub.w d0,d2    ; dx
  7156.  
  7157.  blt .linegoingleft
  7158.  
  7159.  ext.l d2
  7160.  divs d3,d2
  7161.  move.w d2,d6
  7162.  swap d2
  7163.  
  7164. ; moveq #0,d6
  7165. ; sub.w d3,d2
  7166. ; blt.s .noco
  7167. ;.makeco
  7168. ; addq #1,d6
  7169. ; sub.w d3,d2
  7170. ; bge.s .makeco
  7171. ;.noco
  7172. ; add.w d3,d2
  7173.  
  7174.  move.w d3,d4
  7175.  move.w d3,d5
  7176.  subq #1,d5
  7177.  move.w d6,d1
  7178.  addq #1,d1
  7179.  
  7180. .pixlopright:
  7181.  move.w d0,(a3)+
  7182.  sub.w d2,d4
  7183.  bge.s .nobigstep
  7184.  add.w d1,d0
  7185.  add.w d3,d4
  7186.  dbra d5,.pixlopright
  7187.  bra lineflat
  7188. .nobigstep
  7189.  add.w d6,d0
  7190.  dbra d5,.pixlopright
  7191.  bra lineflat
  7192.  
  7193. .linegoingleft:
  7194.  
  7195.  neg.w d2
  7196.  
  7197.  ext.l d2
  7198.  divs d3,d2
  7199.  move.w d2,d6
  7200.  swap d2
  7201.  
  7202.  
  7203. ; moveq #0,d6
  7204. ; sub.w d3,d2
  7205. ; blt.s .nocol
  7206. ;.makecol
  7207. ; addq #1,d6
  7208. ; sub.w d3,d2
  7209. ; bge.s .makecol
  7210. ;.nocol
  7211. ; add.w d3,d2
  7212.  
  7213.  
  7214.  
  7215.  move.w d3,d4
  7216.  move.w d3,d5
  7217.  subq #1,d5
  7218.  
  7219.  move.w d6,d1
  7220.  addq #1,d1
  7221.  
  7222. .pixlopleft:
  7223.  sub.w d2,d4
  7224.  bge.s .nobigstepl
  7225.  sub.w d1,d0
  7226.  add.w d3,d4
  7227.  move.w d0,(a3)+
  7228.  dbra d5,.pixlopleft
  7229.  bra lineflat
  7230.  
  7231. .nobigstepl
  7232.  sub.w d6,d0
  7233.  move.w d0,(a3)+
  7234.  dbra d5,.pixlopleft
  7235.  bra lineflat
  7236.  
  7237. lineonright:
  7238.  
  7239.  lea (a3,d1*2),a3
  7240.  
  7241.  cmp.w top(pc),d1
  7242.  bge.s .nonewtop
  7243.  move.w d1,top
  7244. .nonewtop:
  7245.  cmp.w bottom(pc),d3
  7246.  ble.s .nonewbot
  7247.  move.w d3,bottom
  7248. .nonewbot:
  7249.  
  7250.  sub.w d1,d3    ; dy
  7251.  sub.w d0,d2    ; dx
  7252.  blt .linegoingleft
  7253. ; addq #1,d0
  7254.  ext.l d2
  7255.  divs d3,d2
  7256.  move.w d2,d6
  7257.  swap d2
  7258.  
  7259. ; moveq #0,d6
  7260. ; sub.w d3,d2
  7261. ; blt.s .noco
  7262. ;.makeco
  7263. ; addq #1,d6
  7264. ; sub.w d3,d2
  7265. ; bge.s .makeco
  7266. ;.noco
  7267. ; add.w d3,d2
  7268.  
  7269.  move.w d3,d4
  7270.  move.w d3,d5
  7271.  subq #1,d5
  7272.  move.w d6,d1
  7273.  addq #1,d1
  7274.  
  7275. .pixlopright:
  7276.  sub.w d2,d4
  7277.  bge.s .nobigstep
  7278.  add.w d1,d0
  7279.  add.w d3,d4
  7280.  move.w d0,(a3)+
  7281.  dbra d5,.pixlopright
  7282.  bra lineflat
  7283.  
  7284. .nobigstep
  7285.  add.w d6,d0
  7286.  move.w d0,(a3)+
  7287.  dbra d5,.pixlopright
  7288.  bra lineflat
  7289.  
  7290. .linegoingleft:
  7291. ; addq #1,d0
  7292.  neg.w d2
  7293.  
  7294.  ext.l d2
  7295.  divs d3,d2
  7296.  move.w d2,d6
  7297.  swap d2
  7298.  
  7299.  
  7300. ; moveq #0,d6
  7301. ; sub.w d3,d2
  7302. ; blt.s .nocol
  7303. ;.makecol
  7304. ; addq #1,d6
  7305. ; sub.w d3,d2
  7306. ; bge.s .makecol
  7307. ;.nocol
  7308. ; add.w d3,d2
  7309.  
  7310.  move.w d3,d4
  7311.  move.w d3,d5
  7312.  subq #1,d5
  7313.  move.w d6,d1
  7314.  addq #1,d1
  7315.  
  7316. .pixlopleft:
  7317.  move.w d0,(a3)+
  7318.  sub.w d2,d4
  7319.  bge.s .nobigstepl
  7320.  sub.w d1,d0
  7321.  add.w d3,d4
  7322.  dbra d5,.pixlopleft
  7323.  bra lineflat
  7324.  
  7325. .nobigstepl
  7326.  sub.w d6,d0
  7327.  dbra d5,.pixlopleft
  7328.  
  7329. lineflat:
  7330.  
  7331. bothbehind:
  7332.  dbra d7,sideloop
  7333.  bra pastsides
  7334.  
  7335. fbr: dc.w 0
  7336. sbr: dc.w 0
  7337. FloorPtBrights: dc.l 0
  7338.  
  7339. goursides:
  7340.  
  7341.  move.w #300,top
  7342.  move.w #-1,bottom
  7343.  move.w #0,drawit
  7344.  move.l #Rotated,a1
  7345.  move.l #OnScreen,a2
  7346.  move.w (a0)+,d7    ; no of sides
  7347. sideloopGOUR:
  7348.  move.w minz,d6
  7349.  move.w (a0)+,d1
  7350.  move.w (a0),d3
  7351.  
  7352.  move.w d1,d4
  7353.  move.w d3,d5
  7354.  and.w #$0fff,d1
  7355.  and.w #$0fff,d3
  7356.  
  7357.  rol.w #4,d4
  7358.  rol.w #4,d5
  7359.  and.w #$f,d4
  7360.  and.w #$f,d5
  7361.  
  7362.  move.l FloorPtBrights,a4
  7363.  move.w (a4,d4.w*8),d4
  7364.  bge.s .okpos1
  7365.  neg.w d4
  7366. .okpos1:
  7367.  sub.w #300,d4
  7368.  move.w d4,fbr
  7369.  move.w (a4,d5.w*8),d4
  7370.  bge.s .okpos2
  7371.  neg.w d4
  7372. .okpos2:
  7373.  sub.w #300,d4
  7374.  move.w d4,sbr
  7375.  
  7376.  move.w 6(a1,d1*8),d4    ;first z
  7377.  cmp.w d6,d4
  7378.  bgt firstinfrontGOUR
  7379.  move.w 6(a1,d3*8),d5    ; sec z
  7380.  cmp.w d6,d5
  7381.  ble bothbehindGOUR
  7382. ** line must be on left and partially behind.
  7383.  sub.w d5,d4
  7384.  
  7385.  move.w fbr,d0
  7386.  sub.w sbr,d0
  7387.  sub.w d5,d6
  7388.  muls d6,d0
  7389.  divs d4,d0
  7390.  add.w sbr,d0
  7391.  move.w d0,fbr
  7392.  
  7393.  move.l (a1,d1*8),d0
  7394.  sub.l (a1,d3*8),d0
  7395.  asr.l #7,d0
  7396.  muls d6,d0    ; new x coord
  7397.  divs d4,d0
  7398.  ext.l d0
  7399.  asl.l #7,d0
  7400.  
  7401.  add.l (a1,d3*8),d0
  7402.  move.w minz,d4
  7403.  move.w (a2,d3*2),d2
  7404.  divs d4,d0
  7405.  add.w MIDDLEX,d0
  7406.  move.l ypos,d3
  7407.  divs d5,d3
  7408.  
  7409.  move.w bottomline,d1 
  7410.  bra lineclippedGOUR
  7411.  
  7412. firstinfrontGOUR:
  7413.  move.w 6(a1,d3*8),d5    ; sec z
  7414.  cmp.w d6,d5
  7415.  bgt bothinfrontGOUR
  7416. ** line must be on right and partially behind.
  7417.  sub.w d4,d5    ; dz
  7418.  
  7419.  move.w sbr,d2
  7420.  sub.w fbr,d2
  7421.  sub.w d4,d6
  7422.  muls d6,d2
  7423.  divs d5,d2
  7424.  add.w fbr,d2
  7425.  move.w d2,sbr
  7426.  
  7427.  move.l (a1,d3*8),d2
  7428.  sub.l (a1,d1*8),d2    ; dx
  7429.  asr.l #7,d2
  7430.  muls d6,d2    ; new x coord
  7431.  divs d5,d2
  7432.  ext.l d2
  7433.  asl.l #7,d2
  7434.  add.l (a1,d1*8),d2
  7435.  move.w minz,d5
  7436.  move.w (a2,d1*2),d0
  7437.  divs d5,d2
  7438.  add.w MIDDLEX,d2
  7439.  move.l ypos,d1
  7440.  divs d4,d1
  7441.  move.w bottomline,d3 
  7442.  bra lineclippedGOUR
  7443.  
  7444. bothinfrontGOUR:
  7445.  
  7446. * Also, usefully enough, both are on-screen
  7447. * so no bottom clipping is needed.
  7448.  
  7449.  move.w (a2,d1*2),d0    ; first x
  7450.  move.w (a2,d3*2),d2    ; second x
  7451.  move.l ypos,d1
  7452.  move.l d1,d3
  7453.  divs d4,d1        ; first y
  7454.  divs d5,d3        ; second y
  7455. lineclippedGOUR:
  7456.  move.l #rightsidetab,a3
  7457.  cmp.w d1,d3
  7458.  bne linenotflatGOUR
  7459.  
  7460. ; move.w fbr,d4
  7461. ; move.w sbr,d5
  7462. ; cmp.w d0,d2
  7463. ; bgt.s .nsw
  7464. ; exg d4,d5
  7465. ;.nsw:
  7466.  
  7467. ; move.l #leftbrighttab,a3
  7468. ; move.w d4,(a3,d3.w)
  7469. ; move.l #rightbrighttab,a3
  7470. ; move.w d5,(a3,d3.w) 
  7471.  bra lineflatGOUR
  7472.  
  7473. linenotflatGOUR
  7474.  st drawit
  7475.  bgt lineonrightGOUR
  7476.  move.l #leftsidetab,a3
  7477.  exg d1,d3
  7478.  exg d0,d2
  7479.  
  7480.  lea (a3,d1*2),a3
  7481.  lea leftbrighttab-leftsidetab(a3),a4
  7482.  
  7483.  cmp.w top(pc),d1
  7484.  bge.s .nonewtop
  7485.  move.w d1,top
  7486. .nonewtop:
  7487.  cmp.w bottom(pc),d3
  7488.  ble.s .nonewbot
  7489.  move.w d3,bottom
  7490. .nonewbot:
  7491.  
  7492.  sub.w d1,d3    ; dy
  7493.  sub.w d0,d2    ; dx
  7494.  
  7495.  blt .linegoingleft
  7496.  
  7497.  ext.l d2
  7498.  divs d3,d2
  7499.  move.w d2,d6
  7500.  swap d2
  7501.  move.w d2,a5
  7502.  
  7503. ; moveq #0,d6
  7504. ; sub.w d3,d2
  7505. ; blt.s .noco
  7506. ;.makeco
  7507. ; addq #1,d6
  7508. ; sub.w d3,d2
  7509. ; bge.s .makeco
  7510. ;.noco
  7511. ; add.w d3,d2
  7512.  
  7513.  move.w d3,d4
  7514.  move.w d3,d5
  7515.  subq #1,d5
  7516.  move.w d6,d1
  7517.  addq #1,d1
  7518.  move.w d1,a6
  7519.  
  7520.  moveq #0,d1
  7521.  move.w sbr,d1
  7522.  move.w fbr,d2
  7523.  sub.w d1,d2
  7524.  ext.l d2
  7525.  asl.w #8,d2
  7526.  asl.w #2,d2
  7527.  divs d3,d2 
  7528.  ext.l d2
  7529.  asl.l #6,d2
  7530.  swap d1
  7531.  
  7532. .pixlopright:
  7533.  move.w d0,(a3)+
  7534.  swap d1
  7535.  move.w d1,(a4)+
  7536.  swap d1
  7537.  add.l d2,d1
  7538.  
  7539.  sub.w a5,d4
  7540.  bge.s .nobigstep
  7541.  add.w a6,d0
  7542.  add.w d3,d4
  7543.  dbra d5,.pixlopright
  7544.  bra lineflatGOUR
  7545. .nobigstep
  7546.  
  7547.  add.w d6,d0
  7548.  dbra d5,.pixlopright
  7549.  bra lineflatGOUR
  7550.  
  7551. .linegoingleft:
  7552.  
  7553.  neg.w d2
  7554.  
  7555.  ext.l d2
  7556.  divs d3,d2
  7557.  move.w d2,d6
  7558.  swap d2
  7559.  
  7560.  
  7561. ; moveq #0,d6
  7562. ; sub.w d3,d2
  7563. ; blt.s .nocol
  7564. ;.makecol
  7565. ; addq #1,d6
  7566. ; sub.w d3,d2
  7567. ; bge.s .makecol
  7568. ;.nocol
  7569. ; add.w d3,d2
  7570.  
  7571.  move.w d3,d4
  7572.  move.w d3,d5
  7573.  subq #1,d5
  7574.  
  7575.  move.w d6,d1
  7576.  addq #1,d1
  7577.  move.w d1,a6
  7578.  move.w d2,a5
  7579.  
  7580.  moveq #0,d1
  7581.  move.w sbr,d1
  7582.  move.w fbr,d2
  7583.  sub.w d1,d2
  7584.  ext.l d2
  7585.  asl.w #8,d2
  7586.  asl.w #2,d2
  7587.  divs d3,d2 
  7588.  ext.l d2
  7589.  asl.l #6,d2
  7590.  swap d1
  7591.  
  7592. .pixlopleft:
  7593.  
  7594.  swap d1
  7595.  move.w d1,(a4)+
  7596.  swap d1
  7597.  add.l d2,d1
  7598.  
  7599.  sub.w a5,d4
  7600.  bge.s .nobigstepl
  7601.  sub.w a6,d0
  7602.  add.w d3,d4
  7603.  move.w d0,(a3)+
  7604.  dbra d5,.pixlopleft
  7605.  bra lineflatGOUR
  7606.  
  7607. .nobigstepl
  7608.  sub.w d6,d0
  7609.  move.w d0,(a3)+
  7610.  dbra d5,.pixlopleft
  7611.  bra lineflatGOUR
  7612.  
  7613. lineonrightGOUR:
  7614.  
  7615.  lea (a3,d1*2),a3
  7616.  
  7617.  lea rightbrighttab-rightsidetab(a3),a4
  7618.  
  7619.  cmp.w top(pc),d1
  7620.  bge.s .nonewtop
  7621.  move.w d1,top
  7622. .nonewtop:
  7623.  cmp.w bottom(pc),d3
  7624.  ble.s .nonewbot
  7625.  move.w d3,bottom
  7626. .nonewbot:
  7627.  
  7628.  sub.w d1,d3    ; dy
  7629.  sub.w d0,d2    ; dx
  7630.  blt .linegoingleft
  7631. ; addq #1,d0
  7632.  ext.l d2
  7633.  divs d3,d2
  7634.  move.w d2,d6
  7635.  swap d2
  7636.  
  7637. ; moveq #0,d6
  7638. ; sub.w d3,d2
  7639. ; blt.s .noco
  7640. ;.makeco
  7641. ; addq #1,d6
  7642. ; sub.w d3,d2
  7643. ; bge.s .makeco
  7644. ;.noco
  7645. ; add.w d3,d2
  7646.  
  7647.  move.w d3,d4
  7648.  move.w d3,d5
  7649.  subq #1,d5
  7650.  move.w d6,d1
  7651.  addq #1,d1
  7652.  
  7653.  move.w d1,a6
  7654.  move.w d2,a5
  7655.  
  7656.  moveq #0,d1
  7657.  move.w fbr,d1
  7658.  move.w sbr,d2
  7659.  sub.w d1,d2
  7660.  ext.l d2
  7661.  asl.w #8,d2
  7662.  asl.w #2,d2
  7663.  divs d3,d2 
  7664.  ext.l d2
  7665.  asl.l #6,d2
  7666.  swap d1
  7667.  
  7668. .pixlopright:
  7669.  
  7670.  swap d1
  7671.  move.w d1,(a4)+
  7672.  swap d1
  7673.  add.l d2,d1
  7674.  
  7675.  sub.w a5,d4
  7676.  bge.s .nobigstep
  7677.  add.w a6,d0
  7678.  add.w d3,d4
  7679.  move.w d0,(a3)+
  7680.  dbra d5,.pixlopright
  7681.  bra lineflatGOUR
  7682.  
  7683. .nobigstep
  7684.  add.w d6,d0
  7685.  move.w d0,(a3)+
  7686.  dbra d5,.pixlopright
  7687.  bra lineflatGOUR
  7688.  
  7689. .linegoingleft:
  7690. ; addq #1,d0
  7691.  neg.w d2
  7692.  
  7693.  ext.l d2
  7694.  divs d3,d2
  7695.  move.w d2,d6
  7696.  swap d2
  7697.  
  7698.  
  7699. ; moveq #0,d6
  7700. ; sub.w d3,d2
  7701. ; blt.s .nocol
  7702. ;.makecol
  7703. ; addq #1,d6
  7704. ; sub.w d3,d2
  7705. ; bge.s .makecol
  7706. ;.nocol
  7707. ; add.w d3,d2
  7708.  
  7709.  move.w d3,d4
  7710.  move.w d3,d5
  7711.  subq #1,d5
  7712.  move.w d6,d1
  7713.  addq #1,d1
  7714.  move.w d1,a6
  7715.  move.w d2,a5
  7716.  
  7717.  moveq #0,d1
  7718.  move.w fbr,d1
  7719.  move.w sbr,d2
  7720.  sub.w d1,d2
  7721.  ext.l d2
  7722.  asl.w #8,d2
  7723.  asl.w #2,d2
  7724.  divs d3,d2 
  7725.  ext.l d2
  7726.  asl.l #6,d2
  7727.  swap d1
  7728.  
  7729. .pixlopleft:
  7730.  
  7731.  swap d1
  7732.  move.w d1,(a4)+
  7733.  swap d1
  7734.  add.l d2,d1
  7735.  
  7736.  move.w d0,(a3)+
  7737.  sub.w a5,d4
  7738.  bge.s .nobigstepl
  7739.  sub.w a6,d0
  7740.  add.w d3,d4
  7741.  dbra d5,.pixlopleft
  7742.  bra lineflatGOUR
  7743.  
  7744. .nobigstepl
  7745.  sub.w d6,d0
  7746.  dbra d5,.pixlopleft
  7747.  
  7748. lineflatGOUR:
  7749.  
  7750. bothbehindGOUR:
  7751.  dbra d7,sideloopGOUR
  7752.  
  7753. pastsides:
  7754.  
  7755.  addq #2,a0
  7756.  
  7757.  move.w #320,linedir
  7758.  
  7759. ; move.l FASTBUFFER2,a6
  7760. ; add.l BIGMIDDLEY,a6
  7761. ; move.l a6,REFPTR
  7762.  
  7763.  move.l FASTBUFFER,a6
  7764.  add.l BIGMIDDLEY,a6
  7765.  move.w (a0)+,d6
  7766.  add.w SMALLIT,d6
  7767.  move.w d6,scaleval
  7768.  move.w (a0)+,whichtile
  7769.  move.w (a0)+,d6
  7770.  add.w ZoneBright,d6
  7771.  move.w d6,lighttype
  7772.  move.w above(pc),d6
  7773.  beq groundfloor
  7774. * on ceiling:
  7775.  move.w #-320,linedir
  7776.  suba.w #320,a6
  7777. groundfloor:
  7778.  
  7779.  move.w xoff,d6
  7780.  move.w zoff,d7
  7781.  add.w xwobxoff,d7
  7782.  add.w xwobzoff,d6
  7783.  ext.l d6
  7784.  ext.l d7
  7785.  
  7786.  tst.b FULLSCR
  7787.  beq.s .shiftit
  7788.  
  7789.  add.l d6,d6
  7790.  add.l d7,d7
  7791.  divs #3,d6
  7792.  divs #3,d7
  7793.  
  7794. .shiftit
  7795.  
  7796. ; divs #3,d6
  7797. ; divs #3,d7
  7798.  asr.w #1,d6
  7799.  asr.w #1,d7
  7800.  swap d6
  7801.  swap d7
  7802.  clr.w d6
  7803.  clr.w d7
  7804.  move.w scaleval(pc),d3
  7805.  beq.s .samescale
  7806.  bgt.s .scaledown
  7807.  neg.w d3
  7808.  asr.l d3,d7
  7809.  asr.l d3,d6
  7810.  bra.s .samescale
  7811. .scaledown:
  7812.  asl.l d3,d6
  7813.  asl.l d3,d7
  7814. .samescale
  7815.  move.l d6,sxoff
  7816.  move.l d7,szoff
  7817.  bra pastscale 
  7818.  
  7819.  asr.l #3,d1
  7820.  asr.l #3,d2
  7821.  asr.l #2,d1
  7822.  asr.l #2,d2
  7823.  asr.l #1,d1
  7824.  asr.l #1,d2
  7825. scaleprogfrom
  7826.  nop
  7827.  nop
  7828.  asl.l #1,d1
  7829.  asl.l #1,d2
  7830.  asl.l #2,d1
  7831.  asl.l #2,d2
  7832.  asl.l #3,d1
  7833.  asl.l #3,d2
  7834.  
  7835. top: dc.w 0
  7836. bottom: dc.w 0
  7837. ypos: dc.l 0
  7838. nfloors: dc.w 0
  7839. lighttype: dc.w 0
  7840. above: dc.w 0 
  7841. linedir: dc.w 0
  7842. distaddr: dc.w 0
  7843.  
  7844. minz: dc.l 0
  7845.  
  7846. leftsidetab:
  7847.  ds.w 512*2
  7848. rightsidetab:
  7849.  ds.w 512*2
  7850. leftbrighttab:
  7851.  ds.w 512*2
  7852. rightbrighttab:
  7853.  ds.w 512*2
  7854.  
  7855. PointBrights:
  7856.  dc.l 0
  7857. CurrentPointBrights:
  7858.  ds.l 2*256*10
  7859.  
  7860. movespd: dc.w 0
  7861. largespd: dc.l 0
  7862. disttobot: dc.w 0
  7863.  
  7864. pastscale:
  7865.  
  7866.  
  7867.  tst.b drawit(pc)
  7868.  beq dontdrawfloor
  7869.  
  7870.  tst.b DOUBLEHEIGHT
  7871.  beq pix1h
  7872.  
  7873.  move.l a0,-(a7)
  7874.  move.w linedir,d1
  7875.  add.w d1,linedir
  7876.  
  7877.  move.l #leftsidetab,a4
  7878.  move.w top(pc),d1
  7879.  tst.w above
  7880.  beq.s .clipfloor
  7881.  
  7882.  sub.w #320,a6
  7883.  
  7884.  move.w MIDDLEY,d7
  7885.  subq #1,d7
  7886.  sub.w d1,d7
  7887.  move.w d7,disttobot
  7888.  
  7889.  move.w bottom(pc),d7
  7890.  move.w MIDDLEY,d3
  7891.  move.w d3,d4
  7892.  sub.w topclip,d3
  7893.  sub.w botclip,d4
  7894.  cmp.w d3,d1
  7895.  bge predontdrawfloor
  7896.  cmp.w d4,d7
  7897.  blt predontdrawfloor
  7898.  cmp.w d4,d1
  7899.  bge.s .nocliptoproof
  7900.  move.w d4,d1
  7901. .nocliptoproof
  7902.  cmp.w d3,d7
  7903.  blt .doneclip
  7904.  move.w d3,d7
  7905.  bra .doneclip
  7906.  
  7907. .clipfloor:
  7908.  move.w BOTTOMY,d7
  7909.  sub.w MIDDLEY,d7
  7910.  subq #1,d7
  7911.  sub.w d1,d7
  7912.  move.w d7,disttobot
  7913.  
  7914.  move.w bottom(pc),d7
  7915.  move.w botclip,d4
  7916.  sub.w MIDDLEY,d4
  7917.  cmp.w d4,d1
  7918.  bge predontdrawfloor
  7919.  move.w topclip,d3
  7920.  sub.w MIDDLEY,d3
  7921.  cmp.w d3,d1
  7922.  bge.s .nocliptopfloor
  7923.  move.w d3,d1
  7924. .nocliptopfloor 
  7925.  cmp.w d3,d7
  7926.  ble predontdrawfloor
  7927.  cmp.w d4,d7
  7928.  blt.s .noclipbotfloor
  7929.  move.w d4,d7
  7930. .noclipbotfloor:
  7931.  
  7932. .doneclip:
  7933.  
  7934.  lea (a4,d1*2),a4
  7935.  addq #1,d7
  7936.  sub.w d1,d7
  7937.  
  7938. ;moveq #0,d0
  7939.  asr.w #1,d1
  7940. ; addx d0,d1
  7941.  
  7942. ; move.l #dists,a2
  7943.  move.w distaddr,d0
  7944.  muls #64,d0
  7945.  move.l d0,a2
  7946. ; muls #25,d0
  7947. ; adda.w d0,a2
  7948. ; lea (a2,d1*2),a2
  7949.  asr.w #1,d7
  7950.  ble predontdrawfloor 
  7951.  move.w d1,d0
  7952.  bne.s .notzero
  7953.  moveq #1,d0
  7954. .notzero
  7955.  add.w d0,d0
  7956.  muls linedir,d1
  7957.  add.l d1,a6
  7958. ; sub.l d1,REFPTR
  7959.  move.l #floorscalecols,a1
  7960.  move.l LineToUse,a5
  7961.  
  7962.  move.w #4,tonextline
  7963.  
  7964.  bra pix2h
  7965.  
  7966. pix1h:
  7967.  
  7968.  move.l a0,-(a7)
  7969.  
  7970.  move.l #leftsidetab,a4
  7971.  move.w top(pc),d1
  7972.   
  7973.  tst.w above
  7974.  beq.s clipfloor
  7975.  
  7976.  move.w MIDDLEY,d7
  7977.  subq #1,d7
  7978.  sub.w d1,d7
  7979.  move.w d7,disttobot
  7980.  
  7981.  move.w bottom(pc),d7
  7982.  move.w MIDDLEY,d3
  7983.  move.w d3,d4
  7984.  sub.w topclip,d3
  7985.  sub.w botclip,d4
  7986.  cmp.w d3,d1
  7987.  bge predontdrawfloor
  7988.  cmp.w d4,d7
  7989.  blt predontdrawfloor
  7990.  cmp.w d4,d1
  7991.  bge.s .nocliptoproof
  7992.  move.w d4,d1
  7993. .nocliptoproof
  7994.  cmp.w d3,d7
  7995.  blt doneclip
  7996.  move.w d3,d7
  7997.  bra doneclip
  7998.  
  7999. clipfloor:
  8000.  move.w BOTTOMY,d7
  8001.  sub.w MIDDLEY,d7
  8002.  subq #1,d7
  8003.  sub.w d1,d7
  8004.  move.w d7,disttobot
  8005.  
  8006.  move.w bottom(pc),d7
  8007.  move.w botclip,d4
  8008.  sub.w MIDDLEY,d4
  8009.  cmp.w d4,d1
  8010.  bge predontdrawfloor
  8011.  move.w topclip,d3
  8012.  sub.w MIDDLEY,d3
  8013.  cmp.w d3,d1
  8014.  bge.s .nocliptopfloor
  8015.  move.w d3,d1
  8016. .nocliptopfloor 
  8017.  cmp.w d3,d7
  8018.  ble predontdrawfloor
  8019.  cmp.w d4,d7
  8020.  blt.s .noclipbotfloor
  8021.  move.w d4,d7
  8022. .noclipbotfloor:
  8023.  
  8024. doneclip:
  8025.  
  8026.  lea (a4,d1*2),a4
  8027. ; move.l #dists,a2
  8028.  move.w distaddr,d0
  8029.  muls #64,d0
  8030.  move.l d0,a2
  8031. ; muls #25,d0
  8032. ; adda.w d0,a2
  8033. ; lea (a2,d1*2),a2
  8034.  sub.w d1,d7
  8035.  ble predontdrawfloor 
  8036.  move.w d1,d0
  8037.  bne.s .notzero
  8038.  moveq #1,d0
  8039. .notzero
  8040.  muls linedir,d1
  8041.  add.l d1,a6
  8042. ; sub.l d1,REFPTR
  8043.  move.l #floorscalecols,a1
  8044.  move.l LineToUse,a5
  8045.  
  8046.  move.w #2,tonextline
  8047.  
  8048. pix2h:
  8049.  
  8050.  tst.b gourfloor
  8051.  bne dogourfloor
  8052.  
  8053.  tst.b anyclipping
  8054.  beq dofloornoclip
  8055.  
  8056. dofloor:
  8057. ; move.w (a2)+,d0
  8058.  move.w leftclip,d3
  8059.  move.w rightclip,d4
  8060.  move.w rightsidetab-leftsidetab(a4),d2
  8061.  
  8062.  addq #1,d2
  8063.  cmp.w d3,d2
  8064.  ble.s nodrawline
  8065.  cmp.w d4,d2
  8066.  ble.s noclipright
  8067.  move.w d4,d2
  8068. noclipright:
  8069.  move.w (a4),d1
  8070.  cmp.w d4,d1
  8071.  bge.s nodrawline
  8072.  cmp.w d3,d1
  8073.  bge.s noclipleft
  8074.  move.w d3,d1
  8075. noclipleft:
  8076.  cmp.w d1,d2
  8077.  ble.s nodrawline
  8078.  
  8079.  move.w d1,leftedge
  8080.  move.w d2,rightedge
  8081.  
  8082. ; moveq #0,d1
  8083. ; moveq #0,d3
  8084. ; move.w leftbrighttab-leftsidetab(a4),d1
  8085. ; bge.s .okbl
  8086. ; moveq #0,d1
  8087. ;.okbl:
  8088.  
  8089. ; move.w rightbrighttab-leftsidetab(a4),d3
  8090. ; bge.s .okbr
  8091. ; moveq #0,d3
  8092. ;.okbr:
  8093.  
  8094. ; sub.w d1,d3
  8095. ; asl.w #8,d1
  8096. ; move.l d1,leftbright
  8097. ; swap d3
  8098. ; asr.l #5,d3
  8099. ; divs d5,d3
  8100. ; move.w d3,d5
  8101. ; muls.w d6,d5
  8102. ; asr.l #3,d5
  8103. ; clr.b d5
  8104. ; add.w d5,leftbright+2
  8105.  
  8106. ; ext.l d3
  8107. ; asl.l #5,d3
  8108. ; swap d3
  8109. ; asl.w #8,d3
  8110. ; move.l d3,brightspd
  8111.  
  8112.  move.l a6,a3
  8113.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8114.  move.l a2,d7
  8115.  divs d0,d7
  8116.  move.w d7,d0
  8117.  jsr (a5)
  8118.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8119. nodrawline
  8120.  sub.w #1,disttobot
  8121.  move.w linedir(pc),d3
  8122.  adda.w d3,a6
  8123. ; ext.l d3
  8124. ; sub.l d3,REFPTR
  8125.  move.w tonextline,d3
  8126.  add.w d3,a4
  8127.  asr.w #1,d3
  8128.  add.w d3,d0
  8129.  subq #1,d7
  8130.  bgt dofloor
  8131.  
  8132. predontdrawfloor
  8133.  move.l (a7)+,a0
  8134.  
  8135. dontdrawfloor:
  8136.  
  8137.  rts
  8138.  
  8139. tonextline: dc.w 0
  8140. anyclipping: dc.w 0
  8141.  
  8142. dofloornoclip:
  8143. ; move.w (a2)+,d0
  8144.  move.w rightsidetab-leftsidetab(a4),d2
  8145.  addq #1,d2
  8146.  move.w (a4),d1
  8147.  move.w d1,leftedge
  8148.  move.w d2,rightedge
  8149.  
  8150. ; sub.w d1,d2
  8151.  
  8152. ; moveq #0,d1
  8153. ; moveq #0,d3
  8154. ; move.w leftbrighttab-leftsidetab(a4),d1
  8155. ; bge.s .okbl
  8156. ; moveq #0,d1
  8157. ;.okbl:
  8158.  
  8159. ; move.w rightbrighttab-leftsidetab(a4),d3
  8160. ; bge.s .okbr
  8161. ; moveq #0,d3
  8162. ;.okbr:
  8163.  
  8164. ; sub.w d1,d3
  8165. ; asl.w #8,d1
  8166. ; move.l d1,leftbright
  8167. ; swap d3
  8168. ; asr.l #5,d3
  8169. ; divs d2,d3
  8170. ; ext.l d3
  8171. ; asl.l #5,d3
  8172. ; swap d3
  8173. ; asl.w #8,d3
  8174. ; move.l d3,brightspd
  8175.  
  8176.  move.l a6,a3
  8177.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8178.  move.l a2,d7
  8179.  divs d0,d7
  8180.  move.w d7,d0
  8181.  jsr (a5)
  8182.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8183.  sub.w #1,disttobot
  8184.  move.w linedir(pc),d3
  8185.  adda.w d3,a6
  8186. ; ext.l d3
  8187. ; sub.l d3,REFPTR
  8188.  move.w tonextline,d3
  8189.  add.w d3,a4
  8190.  asr.w #1,d3
  8191.  add.w d3,d0
  8192.  subq #1,d7
  8193.  bgt dofloornoclip
  8194.  
  8195.  bra predontdrawfloor
  8196.  
  8197. dogourfloor:
  8198.  tst.b anyclipping
  8199.  beq dofloornoclipGOUR
  8200.  
  8201. dofloorGOUR:
  8202. ; move.w (a2)+,d0
  8203.  move.w leftclip,d3
  8204.  move.w rightclip,d4
  8205.  move.w rightsidetab-leftsidetab(a4),d2
  8206.  
  8207.  move.w d2,d5
  8208.  sub.w (a4),d5
  8209.  addq #1,d5
  8210.  moveq #0,d6
  8211.  
  8212.  addq #1,d2
  8213.  cmp.w d3,d2
  8214.  ble nodrawlineGOUR
  8215.  cmp.w d4,d2
  8216.  ble.s nocliprightGOUR
  8217.  move.w d4,d2
  8218. nocliprightGOUR:
  8219.  move.w (a4),d1
  8220.  cmp.w d4,d1
  8221.  bge nodrawlineGOUR
  8222.  cmp.w d3,d1
  8223.  bge.s noclipleftGOUR
  8224.  move.w d3,d6
  8225.  subq #1,d6
  8226.  sub.w d1,d6
  8227.  move.w d3,d1
  8228. noclipleftGOUR:
  8229.  cmp.w d1,d2
  8230.  ble nodrawlineGOUR
  8231.  
  8232.  move.w d1,leftedge
  8233.  move.w d2,rightedge
  8234.  
  8235.  move.l a2,d2
  8236.  divs d0,d2
  8237.  move.w d2,dst
  8238.  asr.w #7,d2
  8239. ; addq #5,d2
  8240. ; add.w lighttype,d2
  8241.  
  8242.  moveq #0,d1
  8243.  moveq #0,d3
  8244.  move.w leftbrighttab-leftsidetab(a4),d1
  8245.  add.w d2,d1
  8246.  bge.s .okbl
  8247.  moveq #0,d1
  8248. .okbl:
  8249. ; asr.w #1,d1
  8250.  cmp.w #31,d1
  8251.  ble.s .okdl
  8252.  move.w #31,d1
  8253. .okdl:
  8254.  
  8255.  move.w rightbrighttab-leftsidetab(a4),d3
  8256.  add.w d2,d3
  8257.  bge.s .okbr
  8258.  moveq #0,d3
  8259. .okbr:
  8260. ; asr.w #1,d3
  8261.  cmp.w #31,d3
  8262.  ble.s .okdr
  8263.  move.w #31,d3
  8264. .okdr:
  8265.  
  8266.  sub.w d1,d3
  8267.  asl.w #8,d1
  8268.  move.w d1,leftbright
  8269.  swap d3
  8270.  tst.l d3
  8271.  bgt.s .OKITSPOSALREADY 
  8272.  neg.l d3
  8273.  asr.l #6,d3
  8274.  divs d5,d3
  8275.  neg.w d3
  8276.  bra.s .OKNOWITSNEG
  8277.  
  8278. .OKITSPOSALREADY
  8279.  asr.l #6,d3
  8280.  divs d5,d3
  8281. .OKNOWITSNEG
  8282.  muls d3,d6
  8283.  add.w #256*4,d6
  8284.  asr.w #2,d6
  8285.  clr.b d6
  8286.  add.w leftbright,d6
  8287.  bge.s .oklbnn
  8288.  moveq #0,d6
  8289. .oklbnn:
  8290.  move.w d6,leftbright
  8291.  
  8292.  ext.l d3
  8293.  asr.l #2,d3
  8294. ; swap d3
  8295. ; asl.w #8,d3
  8296.  move.w d3,brightspd
  8297.  
  8298.  move.l a6,a3
  8299.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8300.  move.w dst,d0
  8301.  lea floorscalecols,a1
  8302.  move.l floortile,a0
  8303.  adda.w whichtile,a0
  8304.  jsr pastfloorbright
  8305.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8306. nodrawlineGOUR
  8307.  
  8308.  sub.w #1,disttobot
  8309.  
  8310.  move.w linedir(pc),d3
  8311.  adda.w d3,a6
  8312. ; ext.l d3
  8313. ; sub.l d3,REFPTR
  8314.  move.w tonextline,d3
  8315.  add.w d3,a4
  8316.  asr.w #1,d3
  8317.  add.w d3,d0
  8318.  subq #1,d7
  8319.  bgt dofloorGOUR
  8320.  
  8321. predontdrawfloorGOUR
  8322.  move.l (a7)+,a0
  8323.  
  8324. dontdrawfloorGOUR:
  8325.  
  8326.  rts
  8327.  
  8328. REFPTR: dc.l 0
  8329.  
  8330. dofloornoclipGOUR:
  8331. ; move.w (a2)+,d0
  8332.  move.w rightsidetab-leftsidetab(a4),d2
  8333.  addq #1,d2
  8334.  move.w (a4),d1
  8335.  move.w d1,leftedge
  8336.  move.w d2,rightedge
  8337.  
  8338.  sub.w d1,d2
  8339.  
  8340.  move.l a2,d6
  8341.  divs d0,d6
  8342.  move.w d6,d5
  8343.  asr.w #7,d5
  8344. ; addq #5,d5
  8345. ; add.w lighttype,d5
  8346.  
  8347.  moveq #0,d1
  8348.  moveq #0,d3
  8349.  move.w leftbrighttab-leftsidetab(a4),d1
  8350.  add.w d5,d1
  8351.  bge.s .okbl
  8352.  moveq #0,d1
  8353. .okbl:
  8354. ; asr.w #1,d1
  8355.  cmp.w #31,d1
  8356.  ble.s .okdl
  8357.  move.w #31,d1
  8358. .okdl:
  8359.  
  8360.  move.w rightbrighttab-leftsidetab(a4),d3
  8361.  add.w d5,d3
  8362.  bge.s .okbr
  8363.  moveq #0,d3
  8364. .okbr:
  8365. ; asr.w #1,d3
  8366.  cmp.w #31,d3
  8367.  ble.s .okdr
  8368.  move.w #31,d3
  8369. .okdr:
  8370.  
  8371. ; sub.w d1,d3
  8372. ; asl.w #8,d1
  8373. ; move.l d1,leftbright
  8374. ; swap d3
  8375. ; asr.l #5,d3
  8376. ; divs d2,d3
  8377. ; ext.l d3
  8378. ; asl.l #5,d3
  8379. ; swap d3
  8380. ; asl.w #8,d3
  8381. ; move.l d3,brightspd
  8382.  
  8383.  sub.w d1,d3
  8384.  asl.w #8,d1
  8385.  move.w d1,leftbright
  8386.  swap d3
  8387.  ext.l d2
  8388.  divs.l d2,d3
  8389.  asr.l #8,d3
  8390.  move.w d3,brightspd
  8391.  
  8392.  move.l a6,a3
  8393.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8394.  move.w d6,d0
  8395.  move.w d0,dst
  8396.  lea floorscalecols,a1
  8397.  move.l floortile,a0
  8398.  adda.w whichtile,a0
  8399.  jsr pastfloorbright
  8400.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8401.  sub.w #1,disttobot
  8402.  
  8403.  move.w linedir(pc),d3
  8404.  adda.w d3,a6
  8405. ; ext.l d3
  8406. ; sub.l d3,REFPTR
  8407.  
  8408.  move.w tonextline,d3
  8409.  add.w d3,a4
  8410.  asr.w #1,d3
  8411.  add.w d3,d0
  8412.  subq #1,d7
  8413.  bgt dofloornoclipGOUR
  8414.  
  8415.  bra predontdrawfloorGOUR
  8416.  
  8417.  
  8418.  
  8419. dists:
  8420. ; incbin "floordists"
  8421. drawit: dc.w 0
  8422.  
  8423. LineToUse: dc.l 0
  8424.  
  8425. ***************************
  8426. * Right then, time for the floor
  8427. * routine...
  8428. * For test purposes, give it
  8429. * a3 = point to screen
  8430. * d0= z distance away
  8431. * and sinval+cosval must be set up.
  8432. ***************************
  8433.  
  8434. BLACKFLOOR:
  8435.  moveq #0,d0
  8436.  bra.s DOBLACK
  8437.  
  8438. SimpleFloorLine:
  8439.  
  8440.  CACHE_OFF d2
  8441.  
  8442.  move.l #doacrossline,a1
  8443.  move.w leftedge(pc),d1
  8444.  move.w rightedge(pc),d3
  8445.  sub.w d1,d3
  8446.  lea (a1,d1.w*4),a1
  8447.  move.w (a1,d3.w*4),d4
  8448.  move.w #$4e75,(a1,d3.w*4)
  8449.  
  8450.  tst.b CLRNOFLOOR
  8451.  bne.s BLACKFLOOR
  8452.  
  8453.  move.l #PLAINSCALE,a2
  8454.  
  8455.  move.w d0,d2
  8456.  move.w lighttype,d1
  8457.  asr.w #8,d2
  8458.  add.w #5,d1
  8459.  add.w d2,d1
  8460.  bge.s .fixedbright
  8461.  moveq #0,d1
  8462. .fixedbright:
  8463.  cmp.w #28,d1
  8464.  ble.s .smallbright
  8465.  move.w #28,d1
  8466. .smallbright:
  8467.  lea (a2,d1.w*2),a2
  8468.  
  8469.  move.w whichtile,d0
  8470.  move.w d0,d1
  8471.  and.w #$3,d1
  8472.  and.w #$300,d0
  8473.  lsl.b #6,d1
  8474.  move.b d1,d0
  8475.  move.w d0,tstwhich
  8476.  move.w (a2,d0.w),d0
  8477.  
  8478. DOBLACK:
  8479.  jsr (a1)
  8480.  move.w d4,(a1,d3.w*4)
  8481.  
  8482.  CACHE_ON d2
  8483.  
  8484.  rts
  8485.  
  8486. tstwhich: dc.w 0
  8487. whichtile: dc.w 0
  8488.   
  8489. PLAINSCALE: incbin "ab3:includes/plainscale"
  8490.   
  8491. storeit: dc.l 0
  8492.  
  8493. doacrossline:
  8494. val SET 0
  8495.  REPT 32
  8496.  move.w d0,val(a3)
  8497. val SET val+4
  8498.  ENDR
  8499. val SET val+4
  8500.  REPT 32
  8501.  move.w d0,val(a3)
  8502. val SET val+4
  8503.  ENDR
  8504. val SET val+4
  8505.  REPT 32
  8506.  move.w d0,val(a3)
  8507. val SET val+4
  8508.  ENDR
  8509.  rts
  8510.  
  8511.  
  8512. leftedge: dc.w 0
  8513. rightedge: dc.w 0
  8514.  
  8515. rndpt: dc.l rndtab
  8516.  
  8517.  
  8518. dst: dc.w 0
  8519.  
  8520. FloorLine:
  8521.  
  8522.  move.l floortile,a0
  8523.  adda.w whichtile,a0
  8524.  move.w lighttype,d1
  8525.  move.w d0,dst
  8526.  move.w d0,d2
  8527. *********************
  8528. * Old version
  8529.  asr.w #8,d2
  8530.  add.w #5,d1
  8531. *********************
  8532. ; asr.w #3,d2
  8533. ; sub.w #4,d2
  8534. ; cmp.w #6,d2
  8535. ; blt.s flbrbr
  8536. ; move.w #6,d2
  8537. ;flbrbr:
  8538. *********************
  8539.  add.w d2,d1
  8540.  bge.s .fixedbright
  8541.  moveq #0,d1
  8542. .fixedbright:
  8543.  cmp.w #28,d1
  8544.  ble.s .smallbright
  8545.  move.w #28,d1
  8546. .smallbright:
  8547.  lea floorscalecols,a1
  8548.  add.l floorbright(pc,d1.w*4),a1
  8549.  bra pastfloorbright
  8550.  
  8551. ConstCol: dc.w 0
  8552.  
  8553. BumpLine:
  8554.  
  8555.  tst.b smoothbumps
  8556.  beq.s Chunky
  8557.  
  8558.  move.l #SmoothTile,a0
  8559.  lea Smoothscalecols,a1
  8560.  bra pastast
  8561.  
  8562. Chunky:
  8563.  
  8564.  moveq #0,d2
  8565.  move.l #Bumptile,a0
  8566.  move.w whichtile,d2
  8567.  adda.w d2,a0
  8568.  ror.l #2,d2
  8569.  lsr.w #6,d2
  8570.  rol.l #2,d2
  8571.  and.w #15,d2
  8572.  move.l #ConstCols,a1
  8573.  move.w (a1,d2.w*2),ConstCol
  8574.  lea Bumpscalecols,a1
  8575.  
  8576. pastast:
  8577.  move.w lighttype,d1
  8578.  
  8579.  move.w d0,dst
  8580.  
  8581.  move.w d0,d2
  8582. *********************
  8583. * Old version
  8584.  asr.w #8,d2
  8585.  add.w #5,d1
  8586. *********************
  8587. ; asr.w #3,d2
  8588. ; sub.w #4,d2
  8589. ; cmp.w #6,d2
  8590. ; blt.s flbrbr
  8591. ; move.w #6,d2
  8592. ;flbrbr:
  8593. *********************
  8594.  add.w d2,d1
  8595.  bge.s .fixedbright
  8596.  moveq #0,d1
  8597. .fixedbright:
  8598.  cmp.w #31,d1
  8599.  ble.s .smallbright
  8600.  move.w #31,d1
  8601. .smallbright:
  8602.  add.l floorbright(pc,d1.w*4),a1
  8603.  bra pastfloorbright
  8604.  
  8605.  
  8606. floorbright:
  8607.  dc.l 512*0
  8608.  dc.l 512*1
  8609.  dc.l 512*2
  8610.  dc.l 512*3
  8611.  dc.l 512*4
  8612.  
  8613.  dc.l 512*5
  8614.  dc.l 512*6
  8615.  dc.l 512*7
  8616.  dc.l 512*8
  8617.  dc.l 512*9
  8618.  
  8619.  dc.l 512*10
  8620.  dc.l 512*11
  8621.  dc.l 512*12
  8622.  dc.l 512*13
  8623.  dc.l 512*14
  8624.  
  8625.  dc.l 512*15
  8626.  dc.l 512*16
  8627.  dc.l 512*17
  8628.  dc.l 512*18
  8629.  dc.l 512*19
  8630.  
  8631.  dc.l 512*20
  8632.  dc.l 512*21
  8633.  dc.l 512*22
  8634.  dc.l 512*23
  8635.  dc.l 512*24
  8636.  
  8637.  dc.l 512*25
  8638.  dc.l 512*26
  8639.  dc.l 512*27
  8640.  dc.l 512*28
  8641.  dc.l 512*29
  8642.  
  8643.  dc.l 512*30
  8644.  dc.l 512*31
  8645.  
  8646. widthleft: dc.w 0
  8647. scaleval: dc.w 0
  8648. sxoff: dc.l 0
  8649. szoff: dc.l 0
  8650. xoff34: dc.w 0
  8651. zoff34: dc.w 0
  8652. scosval: dc.w 0
  8653. ssinval: dc.w 0
  8654.  
  8655.  
  8656. floorsetbright:
  8657.  move.l #walltiles,a0
  8658.  
  8659. pastfloorbright:
  8660.  
  8661.  
  8662.  move.w d0,d1
  8663.  muls cosval,d1    ; change in x across whole width
  8664.  move.w d0,d2
  8665.  muls sinval,d2    ; change in z across whole width
  8666.  neg.l d2
  8667. scaleprog:
  8668.  move.w scaleval(pc),d3
  8669.  beq.s .samescale
  8670.  bgt.s .scaledown
  8671.  neg.w d3
  8672.  asr.l d3,d1
  8673.  asr.l d3,d2
  8674.  bra.s .samescale
  8675. .scaledown:
  8676.  asl.l d3,d1
  8677.  asl.l d3,d2
  8678. .samescale
  8679.  
  8680.  move.l d1,d3 ;    z cos
  8681.  move.l d3,d6
  8682.  move.l d3,d5
  8683.  asr.l #1,d6
  8684.  add.l d6,d3
  8685.  asr.l #1,d3
  8686.  
  8687.  move.l d2,d4    ; z sin
  8688.  move.l d4,d6
  8689.  asr.l #1,d6
  8690.  add.l d4,d6
  8691.  add.l d3,d4
  8692.  neg.l d4    ; start x
  8693.  
  8694.  asr.l #1,d6    ; zsin/2
  8695.  sub.l d6,d5    ; start z
  8696.  
  8697.  add.l sxoff,d4
  8698.  add.l szoff,d5
  8699.  
  8700.  
  8701.  tst.b FULLSCR
  8702.  beq.s .nob
  8703.  
  8704.  moveq #0,d6
  8705.  move.w leftedge(pc),d6
  8706.  beq.s .nomultleftB
  8707.  
  8708.  add.l d6,d6
  8709.  divs #3,d6
  8710.  ext.l d6
  8711.  
  8712.  move.l d1,a4
  8713.  move.l d2,a5
  8714.  
  8715.  muls.l d6,d3:d1
  8716.  asr.l #7,d1
  8717.  add.l d1,d4
  8718.  
  8719.  muls.l d6,d3:d2
  8720.  asr.l #7,d2
  8721.  add.l d2,d5
  8722.  move.l a4,d1
  8723.  move.l a5,d2
  8724.  
  8725.  move.w leftedge(pc),d6
  8726.  
  8727. .nomultleftB:
  8728.  
  8729.  move.w d4,startsmoothx
  8730.  move.w d5,startsmoothz
  8731.  
  8732.  asr.l #8,d4
  8733.  asl.l #8,d5
  8734. ; add.w szoff,d5
  8735. ; add.w sxoff,d4
  8736. ; and.w #63,d4
  8737. ; and.w #63*256,d5
  8738.  
  8739.  move.w d4,d5
  8740.  
  8741.  asr.l #6,d1
  8742.  asr.l #6,d2
  8743.  divs.l #3,d1
  8744.  divs.l #3,d2
  8745.  
  8746.  bra.s doneallmult
  8747.  
  8748. .nob 
  8749.  
  8750.  moveq #0,d6
  8751.  move.w leftedge(pc),d6
  8752.  beq.s nomultleft
  8753.  
  8754.  move.l d1,a4
  8755.  move.l d2,a5
  8756.  
  8757.  muls.l d6,d3:d1
  8758.  asr.l #7,d1
  8759.  add.l d1,d4
  8760.  
  8761.  muls.l d6,d3:d2
  8762.  asr.l #7,d2
  8763.  add.l d2,d5
  8764.  move.l a4,d1
  8765.  move.l a5,d2
  8766.  
  8767.  move.w leftedge(pc),d6
  8768.  
  8769. nomultleft:
  8770.  
  8771.  move.w d4,startsmoothx
  8772.  move.w d5,startsmoothz
  8773.  
  8774.  asr.l #8,d4
  8775.  asl.l #8,d5
  8776. ; add.w szoff,d5
  8777. ; add.w sxoff,d4
  8778. ; and.w #63,d4
  8779. ; and.w #63*256,d5
  8780.  
  8781.  move.w d4,d5
  8782.  
  8783.  asr.l #7,d1
  8784.  asr.l #7,d2
  8785. ; divs.l #3,d1
  8786. ; divs.l #3,d2
  8787.  
  8788. doneallmult:
  8789.  
  8790.  move.w d1,a4
  8791.  move.w d2,a5
  8792.  asl.l #8,d2
  8793. ; and.w #%0011111100000000,d2
  8794.  asr.l #8,d1
  8795.  move.w d1,d2
  8796.  move.l #$3fff3fff,d1
  8797.  and.l d1,d5
  8798. ; swap d5
  8799. ; move.w startsmoothz,d5
  8800. ; swap d5
  8801. ; swap d2
  8802. ; move.w a5,d2
  8803. ; swap d2
  8804.  
  8805. ***********************************
  8806.  
  8807.  tst.b DOUBLEWIDTH
  8808.  beq.s .nodoub
  8809.  
  8810.  and.b #$fe,d6
  8811.  
  8812.  move.w d6,a2
  8813.  moveq #0,d0 
  8814.  move.w rightedge(pc),d3 
  8815.  lea (a3,a2.w),a3 
  8816.  move.w d3,d7
  8817.  sub.w a2,d7
  8818.  asr.w #1,d7
  8819.  move.w startsmoothx,d3
  8820.  
  8821.  tst.b usewater
  8822.  bne texturedwaterDOUB
  8823. ; tst.b gourfloor
  8824.  bra gouraudfloorDOUB
  8825.  
  8826. .nodoub:
  8827.  
  8828.  move.w d6,a2
  8829.  moveq #0,d0 
  8830.  move.w rightedge(pc),d3 
  8831.  lea (a3,a2.w),a3 
  8832.  move.w d3,d7
  8833.  sub.w a2,d7
  8834.  
  8835. intofirststrip:
  8836. allintofirst:
  8837.  
  8838.  move.w startsmoothx,d3
  8839.  
  8840. tstwat:
  8841.  
  8842.  tst.b usewater
  8843.  bne texturedwater
  8844. ; tst.b gourfloor
  8845.  bra gouraudfloor
  8846.  
  8847.  
  8848.  
  8849. ******************************
  8850. * BumpMap the floor/ceiling! *
  8851.  tst.b usebumps
  8852.  bne.s BumpMap
  8853. ******************************
  8854.  
  8855. ordinary:
  8856.  moveq #0,d0
  8857.  
  8858.  dbra d7,acrossscrn
  8859.  rts
  8860.  
  8861. usebumps: dc.w $0
  8862. smoothbumps: dc.w $0
  8863. gourfloor: dc.w 0
  8864.  
  8865.  include "ab3:source_4000/bumpmap.s"
  8866.  
  8867.  CNOP 0,4
  8868. backbefore:
  8869.  and.w d1,d5
  8870.  move.b (a0,d5.w*4),d0
  8871.  add.w a4,d3
  8872.  addx.l d6,d5
  8873.  move.w (a1,d0.w*2),(a3)
  8874.  addq #4,a3
  8875.  dbcs d7,acrossscrn
  8876.  dbcc d7,backbefore
  8877.  bra.s past1
  8878.  
  8879. acrossscrn:
  8880.  and.w d1,d5
  8881.  move.b (a0,d5.w*4),d0
  8882.  add.w a4,d3
  8883.  addx.l d2,d5
  8884.  move.w (a1,d0.w*2),(a3)
  8885.  addq #4,a3
  8886.  dbcs d7,acrossscrn
  8887.  dbcc d7,backbefore
  8888. past1:
  8889.  bcc.s gotoacross
  8890.  
  8891.  move.w d4,d7
  8892.  bne.s .notdoneyet
  8893.  rts
  8894. .notdoneyet:
  8895.  
  8896.  cmp.w #32,d7
  8897.  ble.s .notoowide
  8898.  move.w #32,d7
  8899. .notoowide
  8900.  sub.w d7,d4  
  8901.  addq #4,a3
  8902.  
  8903.  dbra d7,backbefore
  8904.  rts
  8905.  
  8906.  
  8907. gotoacross:
  8908.  
  8909.  move.w d4,d7
  8910.  bne.s .notdoneyet
  8911.  rts
  8912. .notdoneyet:
  8913.  
  8914.  cmp.w #32,d7
  8915.  ble.s .notoowide
  8916.  move.w #32,d7
  8917. .notoowide
  8918.  sub.w d7,d4  
  8919.  addq #4,a3
  8920.  
  8921.  dbra d7,acrossscrn
  8922.  rts
  8923.  
  8924. leftbright: dc.l 0
  8925. brightspd: dc.l 0
  8926.  
  8927. gouraudfloor:
  8928.  
  8929.  move.w leftbright,d0
  8930.  move.l d1,d4
  8931.  move.w brightspd,d1
  8932.  
  8933.  move.w d7,d3
  8934.  asr.w #1,d7
  8935.  btst #0,d3
  8936.  beq.s .nosingle1
  8937.  move.w d5,d3
  8938.  move.l d5,d6
  8939.  lsr.w #8,d3
  8940.  swap d6
  8941.  move.b d3,d6
  8942.  move.w d0,d3
  8943.  move.b (a0,d6.w*4),d3
  8944.  add.w d1,d0
  8945.  add.l d2,d5
  8946.  and.l d4,d5
  8947.  move.b (a1,d3.w*2),(a3)+
  8948. .nosingle1
  8949.  
  8950.  move.w d7,d3
  8951.  asr.w #1,d7
  8952.  btst #0,d3
  8953.  beq.s .nosingle2
  8954.  move.w d5,d3
  8955.  move.l d5,d6
  8956.  lsr.w #8,d3
  8957.  swap d6
  8958.  move.b d3,d6
  8959.  move.w d0,d3
  8960.  move.b (a0,d6.w*4),d3
  8961.  add.w d1,d0
  8962.  add.l d2,d5
  8963.  and.l d4,d5
  8964.  move.l d5,d6
  8965.  swap d6
  8966.  move.b (a1,d3.w*2),(a3)+
  8967.  move.w d5,d3
  8968.  lsr.w #8,d3
  8969.  move.b d3,d6
  8970.  move.w d0,d3
  8971.  move.b (a0,d6.w*4),d3
  8972.  add.w d1,d0
  8973.  add.l d2,d5
  8974.  and.l d4,d5
  8975.  move.b (a1,d3.w*2),(a3)+
  8976.  
  8977. .nosingle2
  8978.  
  8979.  move.l d5,d6
  8980.  swap d6
  8981.  
  8982.  dbra d7,acrossscrngour
  8983.  rts
  8984.  
  8985.  CNOP 0,4
  8986.  
  8987. acrossscrngour:
  8988.  move.w d5,d3
  8989.  lsr.w #8,d3
  8990.  move.b d3,d6
  8991.  move.w d0,d3
  8992.  move.b (a0,d6.w*4),d3
  8993.  add.w d1,d0
  8994.  add.l d2,d5
  8995.  and.l d4,d5
  8996.  move.l d5,d6
  8997.  swap d6
  8998.  move.b (a1,d3.w*2),(a3)+
  8999.  move.w d5,d3
  9000.  lsr.w #8,d3
  9001.  move.b d3,d6
  9002.  move.w d0,d3
  9003.  move.b (a0,d6.w*4),d3
  9004.  add.w d1,d0
  9005.  add.l d2,d5
  9006.  and.l d4,d5
  9007.  move.l d5,d6
  9008.  swap d6
  9009.  move.b (a1,d3.w*2),(a3)+
  9010.  move.w d5,d3
  9011.  lsr.w #8,d3
  9012.  move.b d3,d6
  9013.  move.w d0,d3
  9014.  move.b (a0,d6.w*4),d3
  9015.  add.w d1,d0
  9016.  add.l d2,d5
  9017.  and.l d4,d5
  9018.  move.l d5,d6
  9019.  swap d6
  9020.  move.b (a1,d3.w*2),(a3)+
  9021.  move.w d5,d3
  9022.  lsr.w #8,d3
  9023.  move.b d3,d6
  9024.  move.w d0,d3
  9025.  move.b (a0,d6.w*4),d3
  9026.  add.w d1,d0
  9027.  add.l d2,d5
  9028.  and.l d4,d5
  9029.  move.l d5,d6
  9030.  swap d6
  9031.  move.b (a1,d3.w*2),(a3)+
  9032.  dbra d7,acrossscrngour
  9033.  
  9034.  rts
  9035.  
  9036.  
  9037. gouraudfloorDOUB:
  9038.  
  9039.  move.w leftbright,d0
  9040.  move.l d1,d4
  9041.  move.w brightspd,d1
  9042.  add.w d1,d1
  9043.  add.l d2,d2
  9044.  
  9045.  move.w d7,d3
  9046.  asr.w #1,d7
  9047.  btst #0,d3
  9048.  beq.s .nosingle1
  9049.  move.w d5,d3
  9050.  move.l d5,d6
  9051.  lsr.w #8,d3
  9052.  swap d6
  9053.  move.b d3,d6
  9054.  move.w d0,d3
  9055.  move.b (a0,d6.w*4),d3
  9056.  add.w d1,d0
  9057.  add.l d2,d5
  9058.  and.l d4,d5
  9059.  move.w (a1,d3.w*2),(a3)+
  9060. .nosingle1
  9061.  
  9062.  move.w d7,d3
  9063.  asr.w #1,d7
  9064.  btst #0,d3
  9065.  beq.s .nosingle2
  9066.  move.w d5,d3
  9067.  move.l d5,d6
  9068.  lsr.w #8,d3
  9069.  swap d6
  9070.  move.b d3,d6
  9071.  move.w d0,d3
  9072.  move.b (a0,d6.w*4),d3
  9073.  add.w d1,d0
  9074.  add.l d2,d5
  9075.  and.l d4,d5
  9076.  move.l d5,d6
  9077.  swap d6
  9078.  move.w (a1,d3.w*2),(a3)+
  9079.  move.w d5,d3
  9080.  lsr.w #8,d3
  9081.  move.b d3,d6
  9082.  move.w d0,d3
  9083.  move.b (a0,d6.w*4),d3
  9084.  add.w d1,d0
  9085.  add.l d2,d5
  9086.  and.l d4,d5
  9087.  move.w (a1,d3.w*2),(a3)+
  9088.  
  9089. .nosingle2
  9090.  
  9091.  move.l d5,d6
  9092.  swap d6
  9093.  
  9094.  dbra d7,acrossscrngourD
  9095.  rts
  9096.  
  9097.  CNOP 0,4
  9098.  
  9099. acrossscrngourD:
  9100.  move.w d5,d3
  9101.  lsr.w #8,d3
  9102.  move.b d3,d6
  9103.  move.w d0,d3
  9104.  move.b (a0,d6.w*4),d3
  9105.  add.w d1,d0
  9106.  add.l d2,d5
  9107.  and.l d4,d5
  9108.  move.l d5,d6
  9109.  swap d6
  9110.  move.w (a1,d3.w*2),(a3)+
  9111.  move.w d5,d3
  9112.  lsr.w #8,d3
  9113.  move.b d3,d6
  9114.  move.w d0,d3
  9115.  move.b (a0,d6.w*4),d3
  9116.  add.w d1,d0
  9117.  add.l d2,d5
  9118.  and.l d4,d5
  9119.  move.l d5,d6
  9120.  swap d6
  9121.  move.w (a1,d3.w*2),(a3)+
  9122.  move.w d5,d3
  9123.  lsr.w #8,d3
  9124.  move.b d3,d6
  9125.  move.w d0,d3
  9126.  move.b (a0,d6.w*4),d3
  9127.  add.w d1,d0
  9128.  add.l d2,d5
  9129.  and.l d4,d5
  9130.  move.l d5,d6
  9131.  swap d6
  9132.  move.w (a1,d3.w*2),(a3)+
  9133.  move.w d5,d3
  9134.  lsr.w #8,d3
  9135.  move.b d3,d6
  9136.  move.w d0,d3
  9137.  move.b (a0,d6.w*4),d3
  9138.  add.w d1,d0
  9139.  add.l d2,d5
  9140.  and.l d4,d5
  9141.  move.l d5,d6
  9142.  swap d6
  9143.  move.w (a1,d3.w*2),(a3)+
  9144.  dbra d7,acrossscrngourD
  9145.  
  9146.  rts
  9147.  
  9148.  
  9149. ;backbeforegour:
  9150. ; and.w #63*256+63,d5
  9151. ; move.b (a0,d5.w*4),d0
  9152. ; add.l d1,d0
  9153. ; bcc.s .nomoreb
  9154. ; add.w #256,d0
  9155. ;.nomoreb:
  9156. ; add.w a4,d3
  9157. ; move.w (a1,d0.w*2),(a3)+
  9158. ; addx.l d6,d5
  9159. ; dbcs d7,acrossscrngour
  9160. ; dbcc d7,backbeforegour
  9161. ; rts
  9162. ; bra.s past1gour
  9163.  
  9164. ;acrossscrngour:
  9165. ; and.l #$3f3f,d5 
  9166. ; move.b (a0,d5.w*4),d0
  9167. ; add.l d1,d0
  9168. ; bcc.s .nomoreb
  9169. ; add.w #256,d0
  9170. ;.nomoreb:
  9171. ; add.w a4,d3
  9172. ; move.w (a1,d0.w*2),(a3)+
  9173. ; addx.l d2,d5
  9174. ; dbcs d7,acrossscrngour
  9175. ; dbcc d7,backbeforegour
  9176. ;past1gour:
  9177. ; rts
  9178.  
  9179.  move.w d4,d7
  9180.  bne.s .notdoneyet
  9181.  move.l d0,leftbright
  9182.  
  9183.  rts
  9184. .notdoneyet:
  9185.  
  9186.  cmp.w #32,d7
  9187.  ble.s .notoowide
  9188.  move.w #32,d7
  9189. .notoowide
  9190.  sub.w d7,d4  
  9191.  addq #4,a3
  9192.  
  9193. ; dbra d7,backbeforegour
  9194.  rts
  9195.  
  9196.  
  9197. gotoacrossgour:
  9198.  
  9199.  move.w d4,d7
  9200.  bne.s .notdoneyet
  9201.  rts
  9202. .notdoneyet:
  9203.  
  9204.  cmp.w #32,d7
  9205.  ble.s .notoowide
  9206.  move.w #32,d7
  9207. .notoowide
  9208.  sub.w d7,d4  
  9209.  addq #4,a3
  9210.  
  9211.  dbra d7,acrossscrngour
  9212.  rts
  9213.  
  9214.  
  9215. waterpt: dc.l waterlist
  9216.  
  9217. waterlist:
  9218.  dc.l waterfile
  9219.  dc.l waterfile+2
  9220.  dc.l waterfile+256
  9221.  dc.l waterfile+256+2
  9222.  dc.l waterfile+512
  9223.  dc.l waterfile+512+2
  9224.  dc.l waterfile+768
  9225.  dc.l waterfile+768+2
  9226. ; dc.l waterfile+768
  9227. ; dc.l waterfile+512+2
  9228. ; dc.l waterfile+512
  9229. ; dc.l waterfile+256+2
  9230. ; dc.l waterfile+256
  9231. ; dc.l waterfile+2
  9232. endwaterlist:
  9233.  
  9234. watertouse: dc.l waterfile
  9235.  
  9236. wtan: dc.w 0
  9237. wateroff: dc.l 0
  9238.  
  9239. REFLECTIONWATER:
  9240.  
  9241.  move.l d1,d4
  9242.  
  9243.  add.l wateroff,d5
  9244.  
  9245.  move.l #brightentab,a1
  9246.  move.w dst,d0
  9247.  clr.b d0
  9248.  
  9249.  add.w d0,d0
  9250.  cmp.w #12*512,d0
  9251.  blt.s .notoowater
  9252.  move.w #12*512,d0
  9253.  
  9254. .notoowater:
  9255.   
  9256.  adda.w d0,a1
  9257.  
  9258.  move.w dst,d0
  9259.  asl.w #7,d0
  9260.  add.w wtan,d0
  9261.  and.w #8191,d0
  9262.  move.l #SineTable,a0
  9263.  move.w (a0,d0.w),d0
  9264.  ext.l d0
  9265.  
  9266.  move.w dst,d3
  9267.  add.w #300,d3
  9268.  divs d3,d0
  9269.  asr.w #5,d0
  9270.  addq #4,d0
  9271.  cmp.w disttobot,d0
  9272.  blt.s oknotoffbotototr
  9273.  
  9274.  move.w disttobot,d0
  9275.  subq #1,d0
  9276.  
  9277. oknotoffbotototr
  9278.  
  9279. ; move.w dst,d3
  9280. ; asr.w #7,d3
  9281. ; add.w d3,d0
  9282.  
  9283.  muls #320,d0
  9284.  tst.w above
  9285.  beq.s nonnnnnegr
  9286.  neg.l d0
  9287.  
  9288. nonnnnnegr:
  9289.  
  9290.  move.l d0,a6
  9291.  
  9292.  move.l watertouse,a0
  9293.  
  9294. ; move.l #mixtab,a5
  9295.  
  9296.  moveq #0,d1
  9297.  
  9298.  move.w startsmoothx,d3
  9299.  dbra d7,acrossscrnwr
  9300.  rts
  9301.  
  9302. backbeforewr:
  9303.  and.w d1,d5 
  9304.  move.w (a0,d5.w*4),d0
  9305.  move.b (a3,a6.w),d0
  9306.  move.w (a1,d0.w*2),(a3)+
  9307.  add.w a4,d3
  9308.  addx.l d6,d5
  9309.  dbcs d7,acrossscrnwr
  9310.  dbcc d7,backbeforewr
  9311.  rts
  9312.  
  9313. acrossscrnwr:
  9314.  move.w d5,d3
  9315.  move.l d5,d6
  9316.  lsr.w #8,d3
  9317.  swap d6
  9318.  move.b d3,d6
  9319.  move.w (a0,d6.w*4),d0
  9320.  add.l d2,d5
  9321.  move.w (a4,a6.w),d1
  9322.  addq #2,a4
  9323.  move.b (a3,a6.w),d1
  9324.  move.b (a5,d1.l),d0
  9325.  and.l d4,d5
  9326.  move.w (a1,d0.w*2),(a3)+
  9327.  dbra d7,acrossscrnwr
  9328.  rts
  9329.  
  9330. texturedwater:
  9331.  
  9332.  move.l d1,d4
  9333.  
  9334.  add.l wateroff,d5
  9335.  
  9336.  move.l #brightentab,a1
  9337.  move.w dst,d0
  9338.  clr.b d0
  9339.  
  9340.  add.w d0,d0
  9341.  cmp.w #11*512,d0
  9342.  blt.s .notoowater
  9343.  move.w #11*512,d0
  9344. .notoowater:
  9345.   
  9346.  adda.w d0,a1
  9347.  
  9348.  move.w dst,d0
  9349.  asl.w #7,d0
  9350.  add.w wtan,d0
  9351.  and.w #8191,d0
  9352.  move.l #SineTable,a0
  9353.  move.w (a0,d0.w),d0
  9354.  ext.l d0
  9355.  
  9356.  move.w dst,d3
  9357.  add.w #300,d3
  9358.  divs d3,d0
  9359.  asr.w #5,d0
  9360.  addq #4,d0
  9361.  cmp.w disttobot,d0
  9362.  blt.s oknotoffbototot
  9363.  
  9364.  move.w disttobot,d0
  9365.  subq #1,d0
  9366.  
  9367. oknotoffbototot
  9368.  
  9369. ; move.w dst,d3
  9370. ; asr.w #7,d3
  9371. ; add.w d3,d0
  9372.  
  9373.  tst.b DOUBLEHEIGHT
  9374.  beq.s .nodoub
  9375.  and.b #$fe,d0
  9376. .nodoub:
  9377.  
  9378.  muls #320,d0
  9379.  tst.w above
  9380.  beq.s nonnnnneg
  9381.  neg.l d0
  9382.  
  9383. nonnnnneg:
  9384.  
  9385.  move.l d0,a6
  9386.  
  9387.  move.l watertouse,a0
  9388.  
  9389.  move.w startsmoothx,d3
  9390.  dbra d7,acrossscrnw
  9391.  rts
  9392.  
  9393. backbeforew:
  9394.  and.w d1,d5
  9395.  move.w (a0,d5.w*4),d0
  9396.  move.b (a3,a6.w),d0
  9397.  move.b (a1,d0.w*2),(a3)+
  9398.  add.w a4,d3
  9399.  addx.l d6,d5
  9400.  dbcs d7,acrossscrnw
  9401.  dbcc d7,backbeforew
  9402.  rts
  9403.  
  9404. acrossscrnw:
  9405.  move.w d5,d3
  9406.  move.l d5,d6
  9407.  lsr.w #8,d3
  9408.  swap d6
  9409.  move.b d3,d6
  9410.  move.w (a0,d6.w*4),d0
  9411.  add.l d2,d5
  9412.  move.b (a3,a6.w),d0
  9413.  and.l d4,d5
  9414.  move.b (a1,d0.w*2),(a3)+
  9415.  dbra d7,acrossscrnw
  9416.  rts
  9417.  
  9418.  
  9419. texturedwaterDOUB:
  9420.  
  9421.  move.l d1,d4
  9422.  
  9423.  add.l wateroff,d5
  9424.  
  9425.  move.l #brightentab,a1
  9426.  move.w dst,d0
  9427.  clr.b d0
  9428.  
  9429.  add.w d0,d0
  9430.  cmp.w #11*512,d0
  9431.  blt.s .notoowater
  9432.  move.w #11*512,d0
  9433. .notoowater:
  9434.   
  9435.  adda.w d0,a1
  9436.  
  9437.  move.w dst,d0
  9438.  asl.w #7,d0
  9439.  add.w wtan,d0
  9440.  and.w #8191,d0
  9441.  move.l #SineTable,a0
  9442.  move.w (a0,d0.w),d0
  9443.  ext.l d0
  9444.  
  9445.  move.w dst,d3
  9446.  add.w #300,d3
  9447.  divs d3,d0
  9448.  asr.w #5,d0
  9449.  addq #4,d0
  9450.  cmp.w disttobot,d0
  9451.  blt.s .oknotoffbototot
  9452.  
  9453.  move.w disttobot,d0
  9454.  subq #1,d0
  9455.  
  9456. .oknotoffbototot
  9457.  
  9458. ; move.w dst,d3
  9459. ; asr.w #7,d3
  9460. ; add.w d3,d0
  9461.  
  9462.  tst.b DOUBLEHEIGHT
  9463.  beq.s .nodoub
  9464.  and.b #$fe,d0
  9465. .nodoub:
  9466.  
  9467.  muls #320,d0
  9468.  tst.w above
  9469.  beq.s .nonnnnneg
  9470.  neg.l d0
  9471.  
  9472. .nonnnnneg:
  9473.  
  9474.  move.l d0,a6
  9475.  
  9476.  move.l watertouse,a0
  9477.  
  9478.  add.l d2,d2
  9479.  
  9480.  move.w startsmoothx,d3
  9481.  dbra d7,acrossscrnwD
  9482.  rts
  9483.  
  9484.  
  9485. acrossscrnwD:
  9486.  move.w d5,d3
  9487.  move.l d5,d6
  9488.  lsr.w #8,d3
  9489.  swap d6
  9490.  move.b d3,d6
  9491.  move.w (a0,d6.w*4),d0
  9492.  add.l d2,d5
  9493.  move.b (a3,a6.w),d0
  9494.  and.l d4,d5
  9495.  move.w (a1,d0.w*2),(a3)+
  9496.  dbra d7,acrossscrnwD
  9497.  rts
  9498.  
  9499.  
  9500. usewater: dc.w 0
  9501.  dc.w 0
  9502. startsmoothx: dc.w 0
  9503.  dc.w 0
  9504. startsmoothz: dc.w 0
  9505.  
  9506. ********************************
  9507. *
  9508.  include "AB3:source_4000/ObjDrawHIRES.s"
  9509. *
  9510. ********************************
  9511.  
  9512. numframes:
  9513.  dc.w 0
  9514.  
  9515. alframe: dc.l 0
  9516.  
  9517. alan:
  9518.  dcb.l 8,0
  9519.  dcb.l 8,1
  9520.  dcb.l 8,2
  9521.  dcb.l 8,3
  9522. endalan:
  9523.  
  9524. alanptr: dc.l alan
  9525.  
  9526. Time2: dc.l 0
  9527. dispco:
  9528.  dc.w 0
  9529.  
  9530.  
  9531. key_interrupt:
  9532.         movem.l    d0-d7/a0-a6,-(sp)
  9533.  
  9534. ;        move.w    INTREQR,d0
  9535. ;        btst    #3,d0
  9536. ;        beq    .not_key
  9537.  
  9538.         move.b    $bfdd00,d0
  9539.         btst    #0,d0
  9540.         bne    .key_cont
  9541. ;        move.b    $bfed01,d0
  9542. ;        btst    #0,d0
  9543. ;        bne    .key_cont
  9544.     
  9545. ;        btst    #3,d0
  9546. ;        beq    .key_cont
  9547.  
  9548.         move.b    $bfec01,d0
  9549.         clr.b    $bfec01
  9550.  
  9551.         tst.b    d0
  9552.         beq    .key_cont
  9553.  
  9554. ;        bset    #6,$bfee01
  9555. ;        move.b    #$f0,$bfe401
  9556. ;        move.b    #$00,$bfe501
  9557. ;        bset    #0,$bfee01
  9558.  
  9559.  
  9560.         not.b    d0
  9561.         ror.b    #1,d0
  9562.         lea.l    KeyMap,a0
  9563.         tst.b    d0
  9564.         bmi.b    .key_up
  9565.         and.w    #$7f,d0
  9566. ;        add.w    #1,d0
  9567.         move.b    #$ff,(a0,d0.w)
  9568.         move.b    d0,lastpressed
  9569.  
  9570.         bra.b    .key_cont2
  9571. .key_up:
  9572.         and.w    #$7f,d0
  9573. ;        add.w    #1,d0
  9574.         move.b    #$00,(a0,d0.w)
  9575.  
  9576. .key_cont2
  9577. ;        btst    #0,$bfed01
  9578. ;        beq    .key_cont2
  9579. ;        move.b    #%00000000,$bfee01
  9580. ;        move.b    #%10001000,$bfed01
  9581.  
  9582. ;alt keys should not be independent so overlay ralt on lalt
  9583.  
  9584.         
  9585. .key_cont
  9586.  
  9587. ;        move.w    #$0008,INTREQ
  9588. .not_key:    ;lea.l    $dff000,a5
  9589.  
  9590. ;        lea.l    _keypressed(pc),a0
  9591. ;        move.b    101(a0),d0    ;read LALT
  9592. ;        or.b    102(a0),d0    ;blend it with RALT
  9593. ;        move.b    d0,127(a0)    ;save in combined position
  9594.  
  9595.         movem.l    (sp)+,d0-d7/a0-a6
  9596.  
  9597.         rts
  9598.  
  9599. lastpressed:    dc.b 0
  9600. KInt_CCode    Ds.b    1
  9601. KInt_Askey    Ds.b    1
  9602. KInt_OCode    Ds.w    1
  9603.  
  9604.  
  9605. OldSpace: dc.b 0
  9606. SpaceTapped: dc.b 0
  9607. PLR1_SPCTAP: dc.b 0
  9608. PLR2_SPCTAP: dc.b 0
  9609. PLR1_Ducked: dc.b 0
  9610. PLR2_Ducked: dc.b 0
  9611.  even
  9612.  
  9613.  include "ab3:source_4000/PLR1CONTROL.s"
  9614.  include "ab3:source_4000/PLR2CONTROL.s"
  9615.  include "ab3:source_4000/FALL.s"
  9616.  
  9617. prot7: dc.w 0
  9618.  
  9619. GOTTOSEND: dc.w 0
  9620.  
  9621. OtherInter:
  9622.  move.w #$0010,$dff000+intreq
  9623.  movem.l d0-d7/a0-a6,-(a7)
  9624.  bra justshake
  9625.  
  9626.     cnop 0,4
  9627.  
  9628. Chan0inter:
  9629.  
  9630.     SAVEREGS
  9631.     jsr    .routine
  9632.     GETREGS
  9633.  
  9634. ;    move.w    #1024+'.',$dff030
  9635.     
  9636.     moveq #1,d0
  9637.     rts
  9638.  
  9639. .routine
  9640.  
  9641.     
  9642. ;w move.w #$0010,$dff000+intreq
  9643.  
  9644.  tst.b doanything
  9645.  bne dosomething
  9646.  
  9647.  movem.l d0-d7/a0-a6,-(a7)
  9648.  bra JUSTSOUNDS
  9649.  
  9650.  rts
  9651.  
  9652. tabheld: dc.w 0
  9653. ObjWork: ds.l 512
  9654. WORKPTR: dc.l 0
  9655. thistime: dc.w 0
  9656.  
  9657. DOALLANIMS:
  9658.  
  9659.  sub.b #1,thistime
  9660.  ble.s .okdosome
  9661.  rts
  9662.  
  9663. .okdosome:
  9664.  move.b #5,thistime
  9665.  
  9666.  
  9667.  move.l #ObjWork,a5
  9668.  move.l ObjectData,a0
  9669. Objectloop2:
  9670.  tst.w (a0)
  9671.  blt doneallobj2
  9672.  move.w 12(a0),d0
  9673.  blt doneobj2
  9674.  move.w d0,GraphicRoom(a0)
  9675.  tst.b worry(a0)
  9676.  beq.s doneobj2
  9677.  
  9678.  move.b 16(a0),d0
  9679.  cmp.b #1,d0
  9680.  blt JUMPALIENANIM
  9681.  beq JUMPOBJECTANIM
  9682. ; cmp.b #2,d0
  9683. ; beq JUMPBULLET
  9684.  
  9685. doneobj2:
  9686.  
  9687.  adda.w #64,a0
  9688.  addq #8,a5
  9689.  bra Objectloop2
  9690.  
  9691. doneallobj2:
  9692.  rts
  9693.  
  9694. JUMPALIENANIM:
  9695.  
  9696.  moveq #0,d0
  9697.  move.b WhichAnim(a0),d0
  9698. ; 0=walking
  9699. ; 1=attacking
  9700. ; 2=getting hit
  9701. ; 3=dying
  9702.  
  9703.  cmp.b #1,d0
  9704.  blt.s ALWALK
  9705.  beq.s ALATTACK
  9706.  
  9707.  cmp.b #3,d0
  9708.  blt ALGETHIT
  9709.  beq ALDIE
  9710.  
  9711.  bra doneobj2
  9712.  
  9713. ALDIE
  9714.  move.l #10,d0
  9715.  bra intowalk
  9716.  
  9717. ALGETHIT:
  9718.  move.l #9,d0
  9719.  bra intowalk
  9720.  
  9721. ALATTACK:
  9722.  move.l #8,d0
  9723.  bra intowalk
  9724.  
  9725. AUXOBJ: dc.w 0
  9726.  
  9727. ALWALK:
  9728.  
  9729.  jsr ViewpointToDraw
  9730.  add.l d0,d0
  9731.  
  9732. ; cmp.b #1,VECOBJ
  9733. ; bne.s NOSIDES2
  9734. ; moveq #0,d0
  9735. intowalk:
  9736.  
  9737. NOSIDES2:
  9738.  
  9739.  move.b d0,2(a5)
  9740.  move.l LINKFILE,a6
  9741.  
  9742.  add.l #AlienAnimData,a6
  9743.  
  9744.  moveq #0,d1
  9745.  move.b TypeOfThing(a0),d1
  9746.  muls #A_AnimLen,d1
  9747.  add.l d1,a6
  9748.  
  9749. ; move.l ANIMPOINTER,a6
  9750.  
  9751.  muls #A_OptLen,d0
  9752.  add.w d0,a6
  9753.  
  9754.  move.w SecTimer(a0),d1
  9755.  move.w d1,d2
  9756.  muls #A_FrameLen,d1
  9757.  
  9758.  moveq #0,d0
  9759.  move.b 5(a6,d1.w),d0
  9760.  beq.s .nosoundmake
  9761.  
  9762.  movem.l d0-d7/a0-a6,-(a7)
  9763.  subq #1,d0
  9764.  move.w d0,Samplenum
  9765.  clr.b notifplaying
  9766.  move.b 1(a0),IDNUM
  9767.  move.w #80,Noisevol
  9768.  move.l #ObjRotated,a1
  9769.  move.w (a0),d0
  9770.  lea (a1,d0.w*8),a1
  9771.  move.l (a1),Noisex
  9772.  jsr MakeSomeNoise
  9773.  movem.l (a7)+,d0-d7/a0-a6
  9774. .nosoundmake
  9775.  
  9776.  move.b 6(a6,d1.w),d0
  9777.  beq.s .noaction
  9778.  add.b #1,(a5)
  9779.  move.b d2,1(a5)
  9780. .noaction
  9781.  
  9782.  addq #1,d2
  9783.  
  9784.  moveq #0,d0
  9785.  move.b 7(a6,d1.w),d0
  9786.  beq.s .nospecial
  9787.  
  9788.  move.b d0,d3
  9789.  and.w #63,d3
  9790.  lsr.w #6,d0
  9791.  cmp.w #2,d0
  9792.  blt.s .storeval
  9793.  beq.s .randval
  9794.  
  9795.  sub.b #1,4(a5)
  9796.  beq.s .nospecial
  9797.  
  9798.  move.w d3,d2
  9799.  bra.s .nospecial
  9800.  
  9801. .randval:
  9802.  jsr GetRand
  9803.  divs d3,d0
  9804.  swap d0
  9805.  move.w d0,d3
  9806.  
  9807. .storeval:
  9808.  move.b d3,4(a5)
  9809. .nospecial:
  9810.  
  9811.  move.w d2,d3
  9812.  muls #A_FrameLen,d3
  9813.  tst.b (a6,d3.w)
  9814.  bge.s .noendanim
  9815.  st 3(a5)
  9816.  move.w #0,d2
  9817. .noendanim
  9818.  move.w d2,SecTimer(a0)
  9819.  
  9820.  bra doneobj2
  9821.  
  9822.  
  9823. JUMPOBJECTANIM:
  9824.  bra doneobj2
  9825.  
  9826.  
  9827. dosomething:
  9828.  
  9829.  
  9830.  addq.w #1,FramesToDraw
  9831.  movem.l d0-d7/a0-a6,-(a7)
  9832.  
  9833.  bsr DOALLANIMS
  9834.  
  9835.  move.l #KeyMap,a5
  9836.  
  9837.  tst.b $42(a5)
  9838.  bne.s .tabprsd
  9839.  clr.b tabheld
  9840.  bra.s .noswitch
  9841.  
  9842. .tabprsd:
  9843.  tst.b tabheld
  9844.  bne.s .noswitch
  9845.  not.b MAPON
  9846.  st tabheld
  9847. .noswitch
  9848.  
  9849.  tst.b $3e(a5)
  9850.  sne d0
  9851.  tst.b $1e(a5)
  9852.  sne d1
  9853.  tst.b $2d(a5)
  9854.  sne d2
  9855.  tst.b $2f(a5)
  9856.  sne d3
  9857.  
  9858.  tst.b $3d(a5)
  9859.  sne d4
  9860.  tst.b $3f(a5)
  9861.  sne d5
  9862.  tst.b $1d(a5)
  9863.  sne d6
  9864.  tst.b $1f(a5)
  9865.  sne d7
  9866.  
  9867.  or.b d4,d0
  9868.  or.b d5,d0
  9869.  or.b d6,d1
  9870.  or.b d7,d1
  9871.  or.b d4,d2
  9872.  or.b d6,d2
  9873.  or.b d7,d3
  9874.  or.b d5,d3
  9875.  
  9876.  move.w MAPBRIGHT,d4
  9877.  add.w #2,d4
  9878.  clr.l d5
  9879.  bset d4,d5
  9880.  
  9881.  tst.b d0
  9882.  beq.s .nomapup
  9883.  sub.w d5,mapzoff
  9884. .nomapup 
  9885.  
  9886.  tst.b d1
  9887.  beq.s .nomapdown
  9888.  add.w d5,mapzoff
  9889. .nomapdown 
  9890.  
  9891.  tst.b d2
  9892.  beq.s .nomapleft
  9893.  add.w d5,mapxoff
  9894. .nomapleft 
  9895.  
  9896.  tst.b d3
  9897.  beq.s .nomapright
  9898.  sub.w d5,mapxoff
  9899. .nomapright 
  9900.  
  9901.  tst.b $2e(a5)
  9902.  beq.s .nomapcentre
  9903.  
  9904.  move.w #0,mapxoff
  9905.  move.w #0,mapzoff
  9906.  
  9907. .nomapcentre
  9908.  
  9909. ; move.w STOPOFFSET,d0
  9910. ; tst.b 27(a5)
  9911. ; beq.s .nolookup
  9912. ; sub.w #5,d0
  9913. ; cmp.w #-80,d0
  9914. ; bgt.s .nolookup
  9915. ; move.w #-80,d0
  9916. ;.nolookup:
  9917. ; tst.b 42(a5)
  9918. ; beq.s .nolookdown
  9919. ; add.w #5,d0
  9920. ; cmp.w #80,d0
  9921. ; blt.s .nolookdown
  9922. ; move.w #80,d0
  9923. ;.nolookdown:
  9924. ;
  9925. ; move.w d0,STOPOFFSET
  9926. ; neg.w d0
  9927. ; add.w #120,d0
  9928. ; move.w d0,SMIDDLEY
  9929. ; muls #320*2,d0
  9930. ; move.l d0,SBIGMIDDLEY
  9931.  
  9932.  move.w STOPOFFSET,d0
  9933.  tst.b 27(a5)
  9934.  beq.s .nolookup
  9935.  
  9936.  sub.w #512,AIMSPD
  9937.  sub.w #4,d0
  9938.  cmp.w #-80,d0
  9939.  bgt.s .nolookup
  9940.  move.w #-512*20,AIMSPD
  9941.  move.w #-80,d0
  9942. .nolookup:
  9943.  tst.b 42(a5)
  9944.  beq.s .nolookdown
  9945.  add.w #512,AIMSPD
  9946.  add.w #4,d0
  9947.  cmp.w #80,d0
  9948.  blt.s .nolookdown
  9949.  move.w #512*20,AIMSPD
  9950.  move.w #80,d0
  9951. .nolookdown:
  9952.  
  9953.  
  9954.  move.w d0,STOPOFFSET
  9955.  neg.w d0
  9956.  add.w TOTHEMIDDLE,d0
  9957.  move.w d0,SMIDDLEY
  9958.  muls #320,d0
  9959.  move.l d0,SBIGMIDDLEY
  9960.  
  9961.  
  9962. ; jsr INITREC
  9963. ; jsr RECEIVE
  9964.  
  9965. ; tst.l BUFFER
  9966. ; beq.s justshake
  9967. ; st GOTTOSEND
  9968. ; move.l #OtherInter,$6c
  9969.  
  9970. justshake:
  9971.  
  9972.  cmp.b #'b',Prefsfile+3
  9973.  bne.s .noback
  9974.  jsr mt_music
  9975. .noback:
  9976.  
  9977.  bra dontshowtime
  9978.  
  9979.  tst.b oktodisplay
  9980.  beq dontshowtime
  9981.  clr.b oktodisplay
  9982.  subq.w #1,dispco
  9983.  bgt dontshowtime
  9984.  move.w #10,dispco
  9985.  
  9986.  move.l #TimerScr+10,a0
  9987.  move.l TimeCount,d0
  9988.  bge.s timenotneg
  9989.  move.l #1111*256,d0
  9990. timenotneg:
  9991.  asr.l #8,d0
  9992.  move.l #digits,a1
  9993.  move.w #7,d2
  9994. digitlop
  9995.  divs #10,d0
  9996.  swap d0
  9997.  lea (a1,d0.w*8),a2
  9998.  move.b (a2)+,(a0)
  9999.  move.b (a2)+,24(a0)
  10000.  move.b (a2)+,24*2(a0)
  10001.  move.b (a2)+,24*3(a0)
  10002.  move.b (a2)+,24*4(a0)
  10003.  move.b (a2)+,24*5(a0)
  10004.  move.b (a2)+,24*6(a0)
  10005.  move.b (a2)+,24*7(a0)
  10006.  subq #1,a0
  10007.  swap d0
  10008.  ext.l d0
  10009.  dbra d2,digitlop
  10010.  
  10011.  move.l #TimerScr+10+24*10,a0
  10012.  move.l NumTimes,d0
  10013.  move.l #digits,a1
  10014.  move.w #3,d2
  10015. digitlop2
  10016.  divs #10,d0
  10017.  swap d0
  10018.  lea (a1,d0.w*8),a2
  10019.  move.b (a2)+,(a0)
  10020.  move.b (a2)+,24(a0)
  10021.  move.b (a2)+,24*2(a0)
  10022.  move.b (a2)+,24*3(a0)
  10023.  move.b (a2)+,24*4(a0)
  10024.  move.b (a2)+,24*5(a0)
  10025.  move.b (a2)+,24*6(a0)
  10026.  move.b (a2)+,24*7(a0)
  10027.  subq #1,a0
  10028.  swap d0
  10029.  ext.l d0
  10030.  dbra d2,digitlop2
  10031.  
  10032.  move.l #TimerScr+10+24*20,a0
  10033.  moveq #0,d0
  10034.  move.w FramesToDraw,d0
  10035.  move.l #digits,a1
  10036.  move.w #2,d2
  10037. digitlop3
  10038.  divs #10,d0
  10039.  swap d0
  10040.  lea (a1,d0.w*8),a2
  10041.  move.b (a2)+,(a0)
  10042.  move.b (a2)+,24(a0)
  10043.  move.b (a2)+,24*2(a0)
  10044.  move.b (a2)+,24*3(a0)
  10045.  move.b (a2)+,24*4(a0)
  10046.  move.b (a2)+,24*5(a0)
  10047.  move.b (a2)+,24*6(a0)
  10048.  move.b (a2)+,24*7(a0)
  10049.  subq #1,a0
  10050.  swap d0
  10051.  ext.l d0
  10052.  dbra d2,digitlop3
  10053.  
  10054. dontshowtime:
  10055.  
  10056.  
  10057.  move.l alanptr,a0
  10058.  move.l (a0)+,alframe
  10059.  cmp.l #endalan,a0
  10060.  blt.s nostartalan
  10061.  move.l #alan,a0
  10062. nostartalan:
  10063.  move.l a0,alanptr
  10064.  
  10065.  
  10066.  tst.b READCONTROLS
  10067.  beq.s nocontrols
  10068.  
  10069.  cmp.b #'s',mors
  10070.  beq.s control2
  10071.  
  10072.  tst.b PLR1MOUSE
  10073.  beq.s PLR1_nomouse
  10074.  bsr PLR1_mouse_control
  10075. PLR1_nomouse:
  10076.  tst.b PLR1KEYS
  10077.  beq.s PLR1_nokeys
  10078.  bsr PLR1_keyboard_control
  10079. PLR1_nokeys:
  10080. ; tst.b PLR1PATH
  10081. ; beq.s PLR1_nopath
  10082. ; bsr PLR1_follow_path
  10083. ;PLR1_nopath:
  10084.  tst.b PLR1JOY
  10085.  beq.s PLR1_nojoy
  10086.  bsr PLR1_JoyStick_control
  10087. PLR1_nojoy: 
  10088.  bra.s nocontrols
  10089.  
  10090. control2:
  10091.  tst.b PLR2MOUSE
  10092.  beq.s PLR2_nomouse
  10093.  bsr PLR2_mouse_control
  10094. PLR2_nomouse:
  10095.  tst.b PLR2KEYS
  10096.  beq.s PLR2_nokeys
  10097.  bsr PLR2_keyboard_control
  10098. PLR2_nokeys:
  10099. ; tst.b PLR2PATH
  10100. ; beq.s PLR2_nopath
  10101. ; bsr PLR1_follow_path
  10102. ;PLR2_nopath:
  10103.  tst.b PLR2JOY
  10104.  beq.s PLR2_nojoy
  10105.  bsr PLR2_JoyStick_control
  10106. PLR2_nojoy: 
  10107.  
  10108.  
  10109. nocontrols:
  10110.  
  10111.  move.l #$dff000,a6
  10112.  
  10113.  cmp.b #'4',Prefsfile+1
  10114.  bne.s nomuckabout
  10115.  
  10116.  move.w #$0,d0 
  10117.  tst.b NoiseMade0LEFT
  10118.  beq.s noturnoff0
  10119.  move.w #1,d0
  10120. noturnoff0:
  10121.  tst.b NoiseMade0RIGHT
  10122.  beq.s noturnoff1
  10123.  or.w #2,d0
  10124. noturnoff1:
  10125.  tst.b NoiseMade1RIGHT
  10126.  beq.s noturnoff2
  10127.  or.w #4,d0
  10128. noturnoff2:
  10129.  tst.b NoiseMade1LEFT
  10130.  beq.s noturnoff3
  10131.  or.w #8,d0
  10132. noturnoff3:
  10133.     move.w d0,dmacon(a6)
  10134.  
  10135. nomuckabout:
  10136.  
  10137.  
  10138. ; tst.b PLR2_fire
  10139. ; beq.s firenotpressed2
  10140. ; fire was pressed last time.
  10141. ; btst #7,$bfe001
  10142. ; bne.s firenownotpressed2
  10143. ; fire is still pressed this time.
  10144. ; st PLR2_fire
  10145. ; bra dointer
  10146.  
  10147. firenownotpressed2:
  10148. ; fire has been released.
  10149. ; clr.b PLR2_fire
  10150. ; bra dointer
  10151.  
  10152. firenotpressed2
  10153.  
  10154. ; fire was not pressed last frame...
  10155.  
  10156. ; btst #7,$bfe001
  10157. ; if it has still not been pressed, go back above
  10158. ; bne.s firenownotpressed2
  10159. ; fire was not pressed last time, and was this time, so has
  10160. ; been clicked.
  10161. ; st PLR2_clicked
  10162. ; st PLR2_fire
  10163.  
  10164. dointer
  10165.  
  10166. JUSTSOUNDS:
  10167.  
  10168.  tst.b dosounds
  10169.  beq.s .notthing
  10170.  
  10171.  cmp.b #'4',Prefsfile+1
  10172.     beq fourchannel
  10173.  
  10174.  btst #1,$dff000+intreqr
  10175.     bne.s newsampbitl
  10176.  
  10177. .notthing:
  10178.  
  10179.  movem.l (a7)+,d0-d7/a0-a6
  10180.  
  10181.  moveq #0,d0
  10182.  rts
  10183.  
  10184.  
  10185. dosounds: dc.w 0
  10186.  
  10187. swappedem: dc.w 0
  10188.  
  10189. newsampbitl:
  10190.  
  10191.  move.w #$820f,$dff000+dmacon
  10192.  
  10193.  move.w #$200,$dff000+intreq
  10194.  
  10195. ; tst.b CHANNELDATA
  10196. ; bne nochannel0
  10197.  
  10198.  move.l pos0LEFT,a0
  10199.  move.l pos2LEFT,a1
  10200.  
  10201.  move.l #tab,a2
  10202.  
  10203.  moveq #0,d0
  10204.  moveq #0,d1
  10205.  move.b vol0left,d0
  10206.  move.b vol2left,d1
  10207.  cmp.b d1,d0
  10208.  slt swappedem
  10209.  bge.s fbig0
  10210.  
  10211. ; d1 is bigger so scale d0 and use d1
  10212. ; as audiochannel volume.
  10213.  
  10214.  exg a0,a1
  10215.  asl.w #6,d0
  10216.  divs d1,d0
  10217.  lsl.w #8,d0
  10218.  adda.w d0,a2
  10219.  move.w d1,$dff0a8
  10220.  bra.s donechan0
  10221.  
  10222. fbig0:
  10223.  tst.w d0
  10224.  beq.s donechan0
  10225.  asl.w #6,d1
  10226.  divs d0,d1
  10227.  lsl.w #8,d1
  10228.  adda.w d1,a2
  10229.  move.w d0,$dff0a8
  10230.  
  10231. donechan0:
  10232.  
  10233.  move.l Aupt0,a3
  10234.  move.l a3,$dff0a0
  10235.  move.l Auback0,Aupt0
  10236.  move.l a3,Auback0
  10237.  
  10238.  move.l Auback0,a3
  10239.  
  10240.  moveq #0,d0
  10241.  moveq #0,d1
  10242.  moveq #0,d2
  10243.  moveq #0,d3
  10244.  moveq #0,d4
  10245.  moveq #0,d5
  10246.  move.w #49,d7
  10247. loop:
  10248.  move.l (a0)+,d0
  10249.  move.b (a1)+,d1
  10250.  move.b (a1)+,d2
  10251.  move.b (a1)+,d3
  10252.  move.b (a1)+,d4
  10253.  move.b (a2,d3.w),d5
  10254.  swap d5
  10255.  move.b (a2,d1.w),d5
  10256.  asl.l #8,d5
  10257.  move.b (a2,d2.w),d5
  10258.  swap d5
  10259.  move.b (a2,d4.w),d5
  10260.  add.l d5,d0
  10261.  move.l d0,(a3)+
  10262.  dbra d7,loop
  10263.  
  10264.  tst.b swappedem
  10265.  beq.s .ok23
  10266.  exg a0,a1
  10267. .ok23:
  10268.  
  10269.  cmp.l Samp0endLEFT,a0
  10270.  blt.s .notoffendsamp1
  10271.  move.l #empty,a0
  10272.  move.l #emptyend,Samp0endLEFT
  10273.  move.b #0,vol0left
  10274.  st LEFTCHANDATA+1
  10275.  move.w #0,LEFTCHANDATA+2
  10276. .notoffendsamp1:
  10277.  
  10278.  cmp.l Samp2endLEFT,a1
  10279.  blt.s .notoffendsamp2
  10280.  move.l #empty,a1
  10281.  move.l #emptyend,Samp2endLEFT
  10282.  move.b #0,vol2left
  10283.  st LEFTCHANDATA+1+8
  10284.  move.w #0,LEFTCHANDATA+2+8
  10285. .notoffendsamp2:
  10286.  
  10287.  move.l a0,pos0LEFT
  10288.  move.l a1,pos2LEFT
  10289.  
  10290. nochannel0:
  10291.  
  10292.  tst.b CHANNELDATA+16
  10293.  bne nochannel1
  10294.  
  10295.  
  10296.  move.l pos0RIGHT,a0
  10297.  move.l pos2RIGHT,a1
  10298.  
  10299.  move.l Aupt1,a3
  10300.  move.l a3,$dff0b0
  10301.  move.l Auback1,Aupt1
  10302.  move.l a3,Auback1
  10303.  
  10304.  move.l #tab,a2
  10305.  
  10306.  moveq #0,d0
  10307.  moveq #0,d1
  10308.  move.b vol0right,d0
  10309.  move.b vol2right,d1
  10310.  cmp.b d1,d0
  10311.  slt swappedem
  10312.  bge.s fbig1
  10313.  
  10314. ; d1 is bigger so scale d0 and use d1
  10315. ; as audiochannel volume.
  10316.  
  10317.  exg a0,a1
  10318.  asl.w #6,d0
  10319.  divs d1,d0
  10320.  lsl.w #8,d0
  10321.  adda.w d0,a2
  10322.  move.w d1,$dff0b8
  10323.  bra.s donechan1
  10324.  
  10325. fbig1:
  10326.  tst.w d0
  10327.  beq.s donechan1
  10328.  asl.w #6,d1
  10329.  divs d0,d1
  10330.  lsl.w #8,d1
  10331.  adda.w d1,a2
  10332.  move.w d0,$dff0b8
  10333.  
  10334. donechan1:
  10335.  moveq #0,d0
  10336.  moveq #0,d1
  10337.  moveq #0,d2
  10338.  moveq #0,d3
  10339.  moveq #0,d4
  10340.  moveq #0,d5
  10341.  move.w #49,d7
  10342. loop2:
  10343.  move.l (a0)+,d0
  10344.  move.b (a1)+,d1
  10345.  move.b (a1)+,d2
  10346.  move.b (a1)+,d3
  10347.  move.b (a1)+,d4
  10348.  move.b (a2,d3.w),d5
  10349.  swap d5
  10350.  move.b (a2,d1.w),d5
  10351.  asl.l #8,d5
  10352.  move.b (a2,d2.w),d5
  10353.  swap d5
  10354.  move.b (a2,d4.w),d5
  10355.  add.l d5,d0
  10356.  move.l d0,(a3)+
  10357.  dbra d7,loop2
  10358.  
  10359.  tst.b swappedem
  10360.  beq.s ok01
  10361.  exg a0,a1
  10362. ok01:
  10363.  
  10364.  cmp.l Samp0endRIGHT,a0
  10365.  blt.s .notoffendsamp1
  10366.  move.l #empty,a0
  10367.  move.l #emptyend,Samp0endRIGHT
  10368.  move.b #0,vol0right
  10369.  st RIGHTCHANDATA+1
  10370.  move.w #0,RIGHTCHANDATA+2
  10371. .notoffendsamp1:
  10372.  
  10373.  cmp.l Samp2endRIGHT,a1
  10374.  blt.s .notoffendsamp2
  10375.  move.l #empty,a1
  10376.  move.l #emptyend,Samp2endRIGHT
  10377.  move.b #0,vol2right
  10378.  st RIGHTCHANDATA+1+8
  10379.  move.w #0,RIGHTCHANDATA+2+8
  10380. .notoffendsamp2:
  10381.  
  10382.  move.l a0,pos0RIGHT
  10383.  move.l a1,pos2RIGHT
  10384.  
  10385. nochannel1:
  10386.  
  10387. ******************* Other two channels
  10388.  
  10389.  move.l pos1LEFT,a0
  10390.  move.l pos3LEFT,a1
  10391.  
  10392.  move.l #tab,a2
  10393.  
  10394.  moveq #0,d0
  10395.  moveq #0,d1
  10396.  move.b vol1left,d0
  10397.  move.b vol3left,d1
  10398.  cmp.b d1,d0
  10399.  slt swappedem
  10400.  bge.s fbig2
  10401.  
  10402. ; d1 is bigger so scale d0 and use d1
  10403. ; as audiochannel volume.
  10404.  
  10405.  exg a0,a1
  10406.  asl.w #6,d0
  10407.  divs d1,d0
  10408.  lsl.w #8,d0
  10409.  adda.w d0,a2
  10410.  move.w d1,$dff0d8
  10411.  bra.s donechan2
  10412.  
  10413. fbig2:
  10414.  tst.w d0
  10415.  beq.s donechan2
  10416.  asl.w #6,d1
  10417.  divs d0,d1
  10418.  lsl.w #8,d1
  10419.  adda.w d1,a2
  10420.  move.w d0,$dff0d8
  10421.  
  10422. donechan2:
  10423.  
  10424.  move.l Aupt2,a3
  10425.  move.l a3,$dff0d0
  10426.  move.l Auback2,Aupt2
  10427.  move.l a3,Auback2
  10428.  
  10429.  moveq #0,d0
  10430.  moveq #0,d1
  10431.  moveq #0,d2
  10432.  moveq #0,d3
  10433.  moveq #0,d4
  10434.  moveq #0,d5
  10435.  move.w #49,d7
  10436. loop3:
  10437.  move.l (a0)+,d0
  10438.  move.b (a1)+,d1
  10439.  move.b (a1)+,d2
  10440.  move.b (a1)+,d3
  10441.  move.b (a1)+,d4
  10442.  move.b (a2,d3.w),d5
  10443.  swap d5
  10444.  move.b (a2,d1.w),d5
  10445.  asl.l #8,d5
  10446.  move.b (a2,d2.w),d5
  10447.  swap d5
  10448.  move.b (a2,d4.w),d5
  10449.  add.l d5,d0
  10450.  move.l d0,(a3)+
  10451.  dbra d7,loop3
  10452.  
  10453.  tst.b swappedem
  10454.  beq.s .ok23
  10455.  exg a0,a1
  10456. .ok23:
  10457.  
  10458.  cmp.l Samp1endLEFT,a0
  10459.  blt.s .notoffendsamp3
  10460.  move.l #empty,a0
  10461.  move.l #emptyend,Samp1endLEFT
  10462.  move.b #0,vol1left
  10463.  st LEFTCHANDATA+1+4
  10464.  move.w #0,LEFTCHANDATA+2+4
  10465. .notoffendsamp3:
  10466.  
  10467.  cmp.l Samp3endLEFT,a1
  10468.  blt.s .notoffendsamp4
  10469.  move.l #empty,a1
  10470.  move.l #emptyend,Samp3endLEFT
  10471.  move.b #0,vol3left
  10472.  st LEFTCHANDATA+1+12
  10473.  move.w #0,LEFTCHANDATA+2+12
  10474. .notoffendsamp4:
  10475.  
  10476.  move.l a0,pos1LEFT
  10477.  move.l a1,pos3LEFT
  10478.  
  10479.  move.l pos1RIGHT,a0
  10480.  move.l pos3RIGHT,a1
  10481.  
  10482.  move.l Aupt3,a3
  10483.  move.l a3,$dff0c0
  10484.  move.l Auback3,Aupt3
  10485.  move.l a3,Auback3
  10486.  
  10487.  move.l #tab,a2
  10488.  
  10489.  moveq #0,d0
  10490.  moveq #0,d1
  10491.  move.b vol1right,d0
  10492.  move.b vol3right,d1
  10493.  cmp.b d1,d0
  10494.  slt.s swappedem
  10495.  bge.s fbig3
  10496.  
  10497.  exg a0,a1
  10498.  asl.w #6,d0
  10499.  divs d1,d0
  10500.  lsl.w #8,d0
  10501.  adda.w d0,a2
  10502.  move.w d1,$dff0c8
  10503.  bra.s donechan3
  10504.  
  10505. fbig3:
  10506.  tst.w d0
  10507.  beq.s donechan3
  10508.  asl.w #6,d1
  10509.  divs d0,d1
  10510.  lsl.w #8,d1
  10511.  adda.w d1,a2
  10512.  move.w d0,$dff0c8
  10513. donechan3:
  10514.  
  10515.  moveq #0,d0
  10516.  moveq #0,d1
  10517.  moveq #0,d2
  10518.  moveq #0,d3
  10519.  moveq #0,d4
  10520.  moveq #0,d5
  10521.  move.w #49,d7
  10522. loop4:
  10523.  move.l (a0)+,d0
  10524.  move.b (a1)+,d1
  10525.  move.b (a1)+,d2
  10526.  move.b (a1)+,d3
  10527.  move.b (a1)+,d4
  10528.  move.b (a2,d3.w),d5
  10529.  swap d5
  10530.  move.b (a2,d1.w),d5
  10531.  asl.l #8,d5
  10532.  move.b (a2,d2.w),d5
  10533.  swap d5
  10534.  move.b (a2,d4.w),d5
  10535.  add.l d5,d0
  10536.  move.l d0,(a3)+
  10537.  dbra d7,loop4
  10538.  
  10539.  tst.b swappedem
  10540.  beq.s .ok23
  10541.  exg a0,a1
  10542. .ok23:
  10543.  
  10544.  cmp.l Samp1endRIGHT,a0
  10545.  blt.s notoffendsamp3
  10546.  move.l #empty,a0
  10547.  move.l #emptyend,Samp1endRIGHT
  10548.  move.b #0,vol1right
  10549.  st RIGHTCHANDATA+1+4
  10550.  move.w #0,RIGHTCHANDATA+2+4
  10551. notoffendsamp3:
  10552.  
  10553.  cmp.l Samp3endRIGHT,a1
  10554.  blt.s notoffendsamp4
  10555.  move.l #empty,a1
  10556.  move.l #emptyend,Samp3endRIGHT
  10557.  move.b #0,vol3right
  10558.  st RIGHTCHANDATA+1+12
  10559.  move.w #0,RIGHTCHANDATA+2+12
  10560. notoffendsamp4:
  10561.  
  10562.  move.l a0,pos1RIGHT
  10563.  move.l a1,pos3RIGHT
  10564.  
  10565.  movem.l (a7)+,d0-d7/a0-a6
  10566.  tst.b counting
  10567.  beq .nostartcounter
  10568.  JSR STARTCOUNT
  10569. .nostartcounter:
  10570.  
  10571.  moveq #0,d0
  10572.  rts
  10573.  
  10574. ***********************************
  10575. * 4 channel sound routine
  10576. ***********************************
  10577.  
  10578. fourchannel:
  10579.  
  10580.  move.l #$dff000,a6
  10581.  
  10582.  btst #7,intreqrl(a6)
  10583.  beq.s nofinish0
  10584. ; move.w #0,LEFTCHANDATA+2
  10585. ; st LEFTCHANDATA+1
  10586.  move.l #null,$a0(a6)
  10587.  move.w #100,$a4(a6) 
  10588.  move.w #$0080,intreq(a6)
  10589. nofinish0:
  10590.  
  10591.  tst.b NoiseMade0pLEFT
  10592.  beq.s NoChan0sound
  10593.  
  10594.  move.l Samp0endLEFT,d0
  10595.  move.l pos0LEFT,d1
  10596.  sub.l d1,d0
  10597.  lsr.l #1,d0
  10598.  move.w d0,$a4(a6)
  10599.  move.l d1,$a0(a6)
  10600.  move.w #$8201,dmacon(a6)
  10601.  moveq #0,d0
  10602.  move.b vol0left,d0
  10603.  move.w d0,$a8(a6)
  10604.  
  10605. NoChan0sound:
  10606.  
  10607. *****************************************
  10608. *****************************************
  10609.  
  10610.  btst #0,intreqr(a6)
  10611.  beq.s nofinish1
  10612.  move.l #null,$b0(a6)
  10613.  move.w #100,$b4(a6)
  10614.  move.w #$0100,intreq(a6)
  10615. nofinish1:
  10616.  
  10617.  tst.b NoiseMade0pRIGHT
  10618.  beq.s NoChan1sound
  10619.  
  10620.  move.l Samp0endRIGHT,d0
  10621.  move.l pos0RIGHT,d1
  10622.  sub.l d1,d0
  10623.  lsr.l #1,d0
  10624.  move.w d0,$b4(a6)
  10625.  move.l d1,$b0(a6)
  10626.  move.w d0,playnull1
  10627.  move.w #$8202,dmacon(a6)
  10628.  moveq #0,d0
  10629.  move.b vol0right,d0
  10630.  move.w d0,$b8(a6)
  10631.  
  10632. NoChan1sound:
  10633.  
  10634. *****************************************
  10635. *****************************************
  10636.  
  10637.  btst #1,intreqr(a6)
  10638.  beq.s nofinish2
  10639.  move.l #null,$c0(a6)
  10640.  move.w #100,$c4(a6)
  10641.  move.w #$0200,intreq(a6)
  10642. nofinish2:
  10643.  
  10644.  tst.b NoiseMade1pRIGHT
  10645.  beq.s NoChan2sound
  10646.  
  10647.  move.l Samp1endRIGHT,d0
  10648.  move.l pos1RIGHT,d1
  10649.  sub.l d1,d0
  10650.  lsr.l #1,d0
  10651.  move.w d0,$c4(a6)
  10652.  move.w d0,playnull2
  10653.  
  10654.  move.l d1,$c0(a6)
  10655.  move.w #$8204,dmacon(a6)
  10656.  moveq #0,d0
  10657.  move.b vol1right,d0
  10658.  move.w d0,$c8(a6)
  10659.  
  10660. NoChan2sound:
  10661.  
  10662. *****************************************
  10663. *****************************************
  10664.  
  10665.  btst #2,intreqr(a6)
  10666.  beq.s nofinish3
  10667.  move.l #null,$d0(a6)
  10668.  move.w #100,$d4(a6)
  10669.  move.w #$0400,intreq(a6)
  10670. nofinish3:
  10671.  
  10672.  tst.b NoiseMade1pLEFT
  10673.  beq.s NoChan3sound
  10674.  
  10675.  move.l Samp1endLEFT,d0
  10676.  move.l pos1LEFT,d1
  10677.  sub.l d1,d0
  10678.  lsr.l #1,d0
  10679.  move.w d0,$d4(a6)
  10680.  move.w d0,playnull3
  10681.  move.l d1,$d0(a6)
  10682.  move.w #$8208,dmacon(a6)
  10683.  moveq #0,d0
  10684.  move.b vol1left,d0
  10685.  move.w d0,$d8(a6)
  10686.  
  10687. NoChan3sound:
  10688.  
  10689. nomorechannels:
  10690.  
  10691.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  10692.  move.l #0,NoiseMade0LEFT
  10693.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  10694.  move.l #0,NoiseMade0RIGHT
  10695.  
  10696. ; tst.b playnull0
  10697. ; beq.s .nnul
  10698. ; sub.b #1,playnull0
  10699. ; bra.s chan0still
  10700. ;.nnul:
  10701. ; 
  10702. ;chan0still:
  10703.  
  10704.  tst.b NoiseMade0pLEFT
  10705.  bne.s chan0still
  10706.  tst.w playnull0
  10707.  beq.s nnul0
  10708.  sub.w #100,playnull0
  10709.  bra.s chan0still
  10710. nnul0:
  10711.  move.w #0,LEFTCHANDATA+2
  10712.  st LEFTCHANDATA+1
  10713. chan0still:
  10714.  
  10715.  tst.b NoiseMade0pRIGHT
  10716.  bne.s chan1still
  10717.  tst.w playnull1
  10718.  beq.s nnul1
  10719.  sub.w #100,playnull1
  10720.  bra.s chan1still
  10721. nnul1:
  10722.  move.w #0,RIGHTCHANDATA+2
  10723.  st RIGHTCHANDATA+1
  10724. chan1still:
  10725.  
  10726.  tst.b NoiseMade1pRIGHT
  10727.  bne.s chan2still
  10728.  tst.w playnull2
  10729.  beq.s nnul2
  10730.  sub.w #100,playnull2
  10731.  bra.s chan2still
  10732. nnul2:
  10733.  move.w #0,RIGHTCHANDATA+2+4
  10734.  st RIGHTCHANDATA+1+4
  10735. chan2still:
  10736.  
  10737.  tst.b NoiseMade1pLEFT
  10738.  bne.s chan3still
  10739.  tst.w playnull3
  10740.  beq.s nnul3
  10741.  sub.w #100,playnull3
  10742.  bra.s chan3still
  10743. nnul3:
  10744.  move.w #0,LEFTCHANDATA+2+4
  10745.  st LEFTCHANDATA+1+4
  10746.  
  10747. chan3still:
  10748.  
  10749.  
  10750.  movem.l (a7)+,d0-d7/a0-a6
  10751.  
  10752.  moveq #0,d0
  10753.  rts
  10754.  
  10755. backbeat: dc.w 0
  10756.  
  10757. playnull0: dc.w 0
  10758. playnull1: dc.w 0
  10759. playnull2: dc.w 0
  10760. playnull3: dc.w 0
  10761.  
  10762. Samp0endRIGHT: dc.l emptyend
  10763. Samp1endRIGHT: dc.l emptyend
  10764. Samp2endRIGHT: dc.l emptyend
  10765. Samp3endRIGHT: dc.l emptyend
  10766. Samp0endLEFT: dc.l emptyend
  10767. Samp1endLEFT: dc.l emptyend
  10768. Samp2endLEFT: dc.l emptyend
  10769. Samp3endLEFT: dc.l emptyend
  10770.  
  10771. Aupt0: dc.l null
  10772. Auback0: dc.l null+500
  10773. Aupt2: dc.l null3
  10774. Auback2: dc.l null3+500
  10775. Aupt3: dc.l null4
  10776. Auback3: dc.l null4+500
  10777. Aupt1: dc.l null2
  10778. Auback1: dc.l null2+500
  10779.  
  10780. NoiseMade0LEFT: dc.b 0
  10781. NoiseMade1LEFT: dc.b 0
  10782. NoiseMade2LEFT: dc.b 0
  10783. NoiseMade3LEFT: dc.b 0
  10784. NoiseMade0pLEFT: dc.b 0
  10785. NoiseMade1pLEFT: dc.b 0
  10786. NoiseMade2pLEFT: dc.b 0
  10787. NoiseMade3pLEFT: dc.b 0
  10788. NoiseMade0RIGHT: dc.b 0
  10789. NoiseMade1RIGHT: dc.b 0
  10790. NoiseMade2RIGHT: dc.b 0
  10791. NoiseMade3RIGHT: dc.b 0
  10792. NoiseMade0pRIGHT: dc.b 0
  10793. NoiseMade1pRIGHT: dc.b 0
  10794. NoiseMade2pRIGHT: dc.b 0
  10795. NoiseMade3pRIGHT: dc.b 0
  10796.  
  10797. empty: ds.l 100
  10798. emptyend:
  10799.  
  10800. **************************************
  10801. * I want a routine to calculate all the
  10802. * info needed for the sound player to
  10803. * work, given say position of noise, volume
  10804. * and sample number.
  10805.  
  10806. Samplenum: dc.w 0
  10807. Noisex: dc.w 0
  10808. Noisez: dc.w 0
  10809. Noisevol: dc.w 0
  10810. chanpick: dc.w 0
  10811. IDNUM: dc.w 0
  10812. needleft: dc.b 0
  10813. needright: dc.b 0
  10814. STEREO: dc.b $0
  10815. even
  10816. prot6: dc.w 0
  10817.  
  10818.  even
  10819.  
  10820. CHANNELDATA:
  10821. LEFTCHANDATA:
  10822.  dc.l $00000000
  10823.  dc.l $00000000
  10824.  dc.l $FF000000
  10825.  dc.l $FF000000
  10826. RIGHTCHANDATA:
  10827.  dc.l $00000000
  10828.  dc.l $00000000
  10829.  dc.l $FF000000
  10830.  dc.l $FF000000
  10831.  
  10832. RIGHTPLAYEDTAB: ds.l 20
  10833. LEFTPLAYEDTAB: ds.l 20
  10834.  
  10835. MakeSomeNoise:
  10836.  
  10837. ; Plan for new sound handler:
  10838. ; It is sent a sample number,
  10839. ; a position relative to the
  10840. ; player, an id number and a volume.
  10841. ; Also notifplaying.
  10842.  
  10843. ; indirect inputs are the available
  10844. ; channel flags and whether or not
  10845. ; stereo sound is selected.
  10846.  
  10847. ; the algorithm must decide
  10848. ; whether the new sound is more
  10849. ; important than the ones already
  10850. ; playing. Thus an 'importance'
  10851. ; must be calculated, probably
  10852. ; using volume.
  10853.  
  10854. ; The output needs to be:
  10855.  
  10856. ; Write the pointers and volumes of
  10857. ; the sound channels
  10858.  
  10859.  
  10860.  tst.b notifplaying
  10861.  beq.s dontworry
  10862.  
  10863. ; find if we are already playing
  10864.  
  10865.  move.b IDNUM,d0
  10866.  move.w #7,d1
  10867.  lea CHANNELDATA,a3
  10868. findsameasme
  10869.  tst.b (a3)
  10870.  bne.s notavail
  10871.  cmp.b 1(a3),d0
  10872.  beq SameAsMe
  10873. notavail:
  10874.  add.w #4,a3
  10875.  dbra d1,findsameasme
  10876.  bra dontworry
  10877. SameAsMe
  10878.  rts
  10879.  
  10880. noiseloud: dc.w 0
  10881.  
  10882. dontworry:
  10883.  
  10884. ; Ok its fine for us to play a sound.
  10885. ; So calculate left/right volume.
  10886.  
  10887.  move.w Noisex,d1
  10888.  muls d1,d1
  10889.  move.w Noisez,d2
  10890.  muls d2,d2
  10891.  move.w #64,d3
  10892.  move.w #32767,noiseloud
  10893.  moveq #1,d0
  10894.  add.l d1,d2
  10895.  beq pastcalc
  10896.  
  10897.  move.w #31,d0
  10898. .findhigh
  10899.  btst d0,d2
  10900.  bne .foundhigh
  10901.  dbra d0,.findhigh
  10902. .foundhigh
  10903.  asr.w #1,d0
  10904.  clr.l d3
  10905.  bset d0,d3
  10906.  move.l d3,d0
  10907.  
  10908.  move.w d0,d3
  10909.  muls d3,d3    ; x*x
  10910.  sub.l d2,d3    ; x*x-a
  10911.  asr.l #1,d3    ; (x*x-a)/2
  10912.  divs d0,d3    ; (x*x-a)/2x
  10913.  sub.w d3,d0    ; second approx
  10914.  bgt .stillnot0
  10915.  move.w #1,d0
  10916. .stillnot0
  10917.  
  10918.  move.w d0,d3
  10919.  muls d3,d3
  10920.  sub.l d2,d3
  10921.  asr.l #1,d3
  10922.  divs d0,d3
  10923.  sub.w d3,d0    ; second approx
  10924.  bgt .stillnot02
  10925.  move.w #1,d0
  10926. .stillnot02
  10927.  
  10928.  move.w Noisevol,d3
  10929.  ext.l d3
  10930.  asl.l #6,d3
  10931.  cmp.l #32767,d3
  10932.  ble.s .nnnn
  10933.  move.l #32767,d3
  10934. .nnnn
  10935.  
  10936.  asr.w #2,d0
  10937.  addq #1,d0
  10938.  divs d0,d3
  10939.  
  10940.  move.w d3,noiseloud
  10941.  
  10942.  cmp.w #64,d3
  10943.  ble.s notooloud
  10944.  move.w #64,d3
  10945. notooloud:
  10946.  
  10947. pastcalc:
  10948.  
  10949.     ; d3 contains volume of noise.
  10950.     
  10951.  move.w d3,d4
  10952.  tst.b STEREO
  10953.  beq NOSTEREO
  10954.  
  10955.  move.w d3,d2
  10956.  muls Noisex,d2
  10957.  asl.w #2,d0
  10958.  divs d0,d2
  10959.  
  10960.  bgt.s quietleft
  10961.  add.w d2,d4
  10962.  bge.s donequiet
  10963.  move.w #0,d4
  10964.  bra.s donequiet
  10965. quietleft:
  10966.  sub.w d2,d3
  10967.  bge.s donequiet
  10968.  move.w #0,d3
  10969. donequiet:
  10970.  
  10971. ; d3=leftvol?
  10972. ; d4=rightvol?
  10973.  
  10974.  clr.w needleft
  10975.  
  10976.  cmp.b d3,d4
  10977.  bgt.s RightLouder
  10978.  
  10979. ; Left is louder; is it MUCH louder?
  10980.  
  10981.  st needleft
  10982.  move.w d3,d2
  10983.  sub.w d4,d2
  10984.  cmp.w #32,d2
  10985.  slt needright
  10986.  bra aboutsame
  10987.  
  10988. RightLouder:
  10989.  st needright
  10990.  move.w d4,d2
  10991.  sub.w d3,d2
  10992.  cmp.w #32,d2
  10993.  slt needleft
  10994.  
  10995. aboutsame:
  10996.  
  10997.  
  10998. ; Find least important sound on left
  10999.  
  11000.  move.l #0,a2
  11001.  move.l #0,d5
  11002.  move.w #32767,d2
  11003.  move.b IDNUM,d0
  11004.  lea LEFTCHANDATA,a3
  11005.  move.w #3,d1
  11006. FindLeftChannel
  11007.  tst.b (a3)
  11008.  bne.s .notactive
  11009.  cmp.b 1(a3),d0
  11010.  beq.s FOUNDLEFT
  11011.  cmp.w 2(a3),d2
  11012.  blt.s .notactive
  11013.  move.w 2(a3),d2
  11014.  move.l a3,a2
  11015.  move.w d5,d6
  11016.  
  11017. .notactive:
  11018.  add.w #4,a3
  11019.  add.w #1,d5
  11020.  dbra d1,FindLeftChannel
  11021.  move.l a2,a3
  11022.  bra.s gopastleft
  11023. FOUNDLEFT:
  11024.  move.w d5,d6
  11025. gopastleft:
  11026.  tst.l a3
  11027.  bne.s FOUNDALEFT
  11028.  rts
  11029. FOUNDALEFT:
  11030.  
  11031. ; d6 = channel number
  11032.  move.b d0,1(a3)
  11033.  move.w d3,2(a3)
  11034.  
  11035.  move.w Samplenum,d5
  11036.  move.l #SampleList,a3
  11037.  move.l (a3,d5.w*8),a1
  11038.  move.l 4(a3,d5.w*8),a2
  11039.  
  11040.  tst.b d6
  11041.  seq NoiseMade0LEFT
  11042.  beq.s .chan0
  11043.  cmp.b #2,d6
  11044.  slt NoiseMade1LEFT
  11045.  blt .chan1
  11046.  seq NoiseMade2LEFT
  11047.  beq .chan2
  11048.  st NoiseMade3LEFT
  11049.  
  11050.  move.b d5,LEFTPLAYEDTAB+9
  11051.  move.b d3,LEFTPLAYEDTAB+1+9
  11052.  move.b d4,LEFTPLAYEDTAB+2+9
  11053.  move.b d3,vol3left
  11054.  move.l a1,pos3LEFT
  11055.  move.l a2,Samp3endLEFT
  11056.  bra dorightchan
  11057.  
  11058. .chan0: 
  11059.  move.b d5,LEFTPLAYEDTAB
  11060.  move.b d3,LEFTPLAYEDTAB+1
  11061.  move.b d4,LEFTPLAYEDTAB+2
  11062.  move.l a1,pos0LEFT
  11063.  move.l a2,Samp0endLEFT
  11064.  move.b d3,vol0left
  11065.  bra dorightchan
  11066.  
  11067. .chan1:
  11068.  move.b d5,LEFTPLAYEDTAB+3
  11069.  move.b d3,LEFTPLAYEDTAB+1+3
  11070.  move.b d4,LEFTPLAYEDTAB+2+3
  11071.  move.b d3,vol1left
  11072.  move.l a1,pos1LEFT
  11073.  move.l a2,Samp1endLEFT
  11074.  bra dorightchan
  11075.  
  11076. .chan2: 
  11077.  move.b d5,LEFTPLAYEDTAB+6
  11078.  move.b d3,LEFTPLAYEDTAB+1+6
  11079.  move.b d4,LEFTPLAYEDTAB+2+6
  11080.  move.l a1,pos2LEFT
  11081.  move.l a2,Samp2endLEFT
  11082.  move.b d3,vol2left
  11083.  
  11084. dorightchan:
  11085.  
  11086. ; Find least important sound on right
  11087.  
  11088.  move.l #0,a2
  11089.  move.l #0,d5
  11090.  move.w #10000,d2
  11091.  move.b IDNUM,d0
  11092.  lea RIGHTCHANDATA,a3
  11093.  move.w #3,d1
  11094. FindRightChannel
  11095.  tst.b (a3)
  11096.  bne.s .notactive
  11097.  cmp.b 1(a3),d0
  11098.  beq.s FOUNDRIGHT
  11099.  cmp.w 2(a3),d2
  11100.  blt.s .notactive
  11101.  move.w 2(a3),d2
  11102.  move.l a3,a2
  11103.  move.w d5,d6
  11104.  
  11105. .notactive:
  11106.  add.w #4,a3
  11107.  add.w #1,d5
  11108.  dbra d1,FindRightChannel
  11109.  move.l a2,a3
  11110.  bra.s gopastright
  11111. FOUNDRIGHT:
  11112.  move.w d5,d6
  11113. gopastright:
  11114.  tst.l a3
  11115.  bne.s FOUNDARIGHT
  11116.  rts
  11117. FOUNDARIGHT:
  11118.  
  11119. ; d6 = channel number
  11120.  move.b d0,1(a3)
  11121.  move.w d3,2(a3)
  11122.  
  11123.  move.w Samplenum,d5
  11124.  move.l #SampleList,a3
  11125.  move.l (a3,d5.w*8),a1
  11126.  move.l 4(a3,d5.w*8),a2
  11127.  
  11128.  tst.b d6
  11129.  seq NoiseMade0RIGHT
  11130.  beq.s .chan0
  11131.  cmp.b #2,d6
  11132.  slt NoiseMade1RIGHT
  11133.  blt .chan1
  11134.  seq NoiseMade2RIGHT
  11135.  beq .chan2
  11136.  st NoiseMade3RIGHT
  11137.  
  11138.  move.b d5,RIGHTPLAYEDTAB+9
  11139.  move.b d3,RIGHTPLAYEDTAB+1+9
  11140.  move.b d4,RIGHTPLAYEDTAB+2+9
  11141.  move.b d4,vol3right
  11142.  move.l a1,pos3RIGHT
  11143.  move.l a2,Samp3endRIGHT
  11144.  rts
  11145.  
  11146. .chan0: 
  11147.  move.b d5,RIGHTPLAYEDTAB
  11148.  move.b d3,RIGHTPLAYEDTAB+1
  11149.  move.b d4,RIGHTPLAYEDTAB+2
  11150.  move.l a1,pos0RIGHT
  11151.  move.l a2,Samp0endRIGHT
  11152.  move.b d4,vol0right
  11153.  rts
  11154.  
  11155. .chan1:
  11156.  move.b d5,RIGHTPLAYEDTAB+3
  11157.  move.b d3,RIGHTPLAYEDTAB+1+3
  11158.  move.b d4,RIGHTPLAYEDTAB+2+3
  11159.  move.b d3,vol1right
  11160.  move.l a1,pos1RIGHT
  11161.  move.l a2,Samp1endRIGHT
  11162.  rts
  11163.  
  11164. .chan2: 
  11165.  move.b d5,RIGHTPLAYEDTAB+6
  11166.  move.b d3,RIGHTPLAYEDTAB+1+6
  11167.  move.b d4,RIGHTPLAYEDTAB+2+6
  11168.  move.l a1,pos2RIGHT
  11169.  move.l a2,Samp2endRIGHT
  11170.  move.b d3,vol2right
  11171.  rts
  11172.  
  11173. NOSTEREO:
  11174.  move.l #0,a2
  11175.  move.l #-1,d5
  11176.  move.w #32767,d2
  11177.  move.b IDNUM,d0
  11178.  lea CHANNELDATA,a3
  11179.  move.w #7,d1
  11180. FindChannel
  11181.  tst.b (a3)
  11182.  bne.s .notactive
  11183.  cmp.b 1(a3),d0
  11184.  beq.s FOUNDCHAN
  11185.  cmp.w 2(a3),d2
  11186.  blt.s .notactive
  11187.  move.w 2(a3),d2
  11188.  move.l a3,a2
  11189.  move.w d5,d6
  11190.  add.w #1,d6
  11191.  
  11192. .notactive:
  11193.  add.w #4,a3
  11194.  add.w #1,d5
  11195.  dbra d1,FindChannel
  11196.  
  11197.  move.l a2,a3
  11198.  bra.s gopastchan
  11199. FOUNDCHAN:
  11200.  move.w d5,d6
  11201.  add.w #1,d6
  11202. gopastchan:
  11203.  tst.w d6
  11204.  bge.s FOUNDACHAN
  11205. tooquiet:
  11206.  rts
  11207. FOUNDACHAN:
  11208.  
  11209. ; d6 = channel number
  11210.  
  11211.  cmp.w noiseloud,d2
  11212.  bgt.s tooquiet
  11213.  
  11214.  move.b d0,1(a3)
  11215.  move.w noiseloud,2(a3)
  11216.  
  11217.  move.w Samplenum,d5
  11218.  move.l #SampleList,a3
  11219.  move.l (a3,d5.w*8),a1
  11220.  move.l 4(a3,d5.w*8),a2
  11221.  
  11222.  tst.b d6
  11223.  beq .chan0
  11224.  cmp.b #2,d6
  11225.  blt .chan1
  11226.  beq .chan2
  11227.  cmp.b #4,d6
  11228.  blt .chan3
  11229.  beq .chan4
  11230.  cmp.b #6,d6
  11231.  blt .chan5
  11232.  beq .chan6
  11233.  st NoiseMade3RIGHT
  11234.  
  11235.  move.b d5,RIGHTPLAYEDTAB+9
  11236.  move.b d3,RIGHTPLAYEDTAB+1+9
  11237.  move.b d4,RIGHTPLAYEDTAB+2+9
  11238.  move.b d4,vol3right
  11239.  move.l a1,pos3RIGHT
  11240.  move.l a2,Samp3endRIGHT
  11241.  rts
  11242.  
  11243. .chan3:
  11244.  st NoiseMade3LEFT
  11245.  move.b d5,LEFTPLAYEDTAB+9
  11246.  move.b d3,LEFTPLAYEDTAB+1+9
  11247.  move.b d4,LEFTPLAYEDTAB+2+9
  11248.  move.b d3,vol3left
  11249.  move.l a1,pos3LEFT
  11250.  move.l a2,Samp3endLEFT
  11251.  bra dorightchan
  11252.  
  11253. .chan0: 
  11254.  st NoiseMade0LEFT
  11255.  move.b d5,LEFTPLAYEDTAB
  11256.  move.b d3,LEFTPLAYEDTAB+1
  11257.  move.b d4,LEFTPLAYEDTAB+2
  11258.  move.l a1,pos0LEFT
  11259.  move.l a2,Samp0endLEFT
  11260.  move.b d3,vol0left
  11261.  rts
  11262.  
  11263. .chan1:
  11264.  st NoiseMade1LEFT
  11265.  move.b d5,LEFTPLAYEDTAB+3
  11266.  move.b d3,LEFTPLAYEDTAB+1+3
  11267.  move.b d4,LEFTPLAYEDTAB+2+3
  11268.  move.b d3,vol1left
  11269.  move.l a1,pos1LEFT
  11270.  move.l a2,Samp1endLEFT
  11271.  rts
  11272.  
  11273. .chan2: 
  11274.  st NoiseMade2LEFT
  11275.  move.b d5,LEFTPLAYEDTAB+6
  11276.  move.b d3,LEFTPLAYEDTAB+1+6
  11277.  move.b d4,LEFTPLAYEDTAB+2+6
  11278.  move.l a1,pos2LEFT
  11279.  move.l a2,Samp2endLEFT
  11280.  move.b d3,vol2left
  11281.  rts
  11282.  
  11283. .chan4: 
  11284.  st NoiseMade0RIGHT
  11285.  move.b d5,RIGHTPLAYEDTAB
  11286.  move.b d3,RIGHTPLAYEDTAB+1
  11287.  move.b d4,RIGHTPLAYEDTAB+2
  11288.  move.l a1,pos0RIGHT
  11289.  move.l a2,Samp0endRIGHT
  11290.  move.b d4,vol0right
  11291.  rts
  11292.  
  11293. .chan5:
  11294.  st NoiseMade1RIGHT
  11295.  move.b d5,RIGHTPLAYEDTAB+3
  11296.  move.b d3,RIGHTPLAYEDTAB+1+3
  11297.  move.b d4,RIGHTPLAYEDTAB+2+3
  11298.  move.b d3,vol1right
  11299.  move.l a1,pos1RIGHT
  11300.  move.l a2,Samp1endRIGHT
  11301.  rts
  11302.  
  11303. .chan6: 
  11304.  st NoiseMade2RIGHT
  11305.  move.b d5,RIGHTPLAYEDTAB+6
  11306.  move.b d3,RIGHTPLAYEDTAB+1+6
  11307.  move.b d4,RIGHTPLAYEDTAB+2+6
  11308.  move.l a1,pos2RIGHT
  11309.  move.l a2,Samp2endRIGHT
  11310.  move.b d3,vol2right
  11311.  rts
  11312.  
  11313. SampleList:
  11314.  dc.l Scream,EndScream
  11315.  dc.l Shoot,EndShoot
  11316.  dc.l Munch,EndMunch
  11317.  dc.l PooGun,EndPooGun
  11318.  dc.l Collect,EndCollect
  11319. ;5
  11320.  dc.l DoorNoise,EndDoorNoise
  11321.  dc.l 0,0
  11322.  dc.l Stomp,EndStomp
  11323.  dc.l LowScream,EndLowScream
  11324.  dc.l BaddieGun,EndBaddieGun
  11325. ;10
  11326.  dc.l SwitchNoise,EndSwitch
  11327.  dc.l Reload,EndReload
  11328.  dc.l NoAmmo,EndNoAmmo
  11329.  dc.l Splotch,EndSplotch
  11330.  dc.l SplatPop,EndSplatPop
  11331. ;15
  11332.  dc.l Boom,EndBoom
  11333.  dc.l Hiss,EndHiss
  11334.  dc.l Howl1,EndHowl1
  11335.  dc.l Howl2,EndHowl2
  11336.  dc.l Pant,EndPant
  11337. ;20
  11338.  dc.l Whoosh,EndWhoosh
  11339.  dc.l ROAR,EndROAR
  11340.  dc.l whoosh,Endwhoosh
  11341.  dc.l 0,0
  11342.  dc.l 0,0
  11343.  dc.l 0,0
  11344.  dc.l 0,0
  11345.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11346.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11347.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11348.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11349.  
  11350.  dc.l 0
  11351.  
  11352. storeval: dc.w 0
  11353.  
  11354.  include "ab3:source_4000/wallchunk.s"
  11355.  include "ab3:source_4000/newloadfromdisk.s"
  11356.  include "ab3:source_4000/screensetup.s"
  11357.  include "ab3:source_4000/WBCONTROLLOOP.s"
  11358.  include "ab3:source_4000/WBSETUP"
  11359.  
  11360.  
  11361.  
  11362.  
  11363. saveinters:  
  11364.  dc.w 0
  11365.  
  11366. z: dc.w 10
  11367.  
  11368. notifplaying:
  11369.  dc.w 0
  11370.  
  11371. audpos1: dc.w 0
  11372. audpos1b: dc.w 0
  11373. audpos2: dc.w 0
  11374. audpos2b: dc.w 0
  11375. audpos3: dc.w 0
  11376. audpos3b: dc.w 0
  11377. audpos4: dc.w 0
  11378. audpos4b: dc.w 0
  11379.  
  11380. vol0left: dc.w 0
  11381. vol0right: dc.w 0
  11382. vol1left: dc.w 0
  11383. vol1right: dc.w 0
  11384. vol2left: dc.w 0
  11385. vol2right: dc.w 0
  11386. vol3left: dc.w 0
  11387. vol3right: dc.w 0
  11388.  
  11389. pos: dc.l 0
  11390.  
  11391. pos0LEFT: dc.l empty
  11392. pos1LEFT: dc.l empty
  11393. pos2LEFT: dc.l empty
  11394. pos3LEFT: dc.l empty
  11395. pos0RIGHT: dc.l empty
  11396. pos1RIGHT: dc.l empty
  11397. pos2RIGHT: dc.l empty
  11398. pos3RIGHT: dc.l empty
  11399.  
  11400. numtodo dc.w 0
  11401.  
  11402. npt: dc.w 0
  11403.  
  11404. pretab:
  11405. val SET 0
  11406.  REPT 128
  11407.  dc.b val
  11408. val SET val+1
  11409.  ENDR
  11410. val SET -128
  11411.  REPT 128
  11412.  dc.b val
  11413. val SET val+1
  11414.  ENDR 
  11415.  
  11416. tab:
  11417.  ds.b 256*65
  11418.  
  11419.  
  11420. test: dc.l 0
  11421.  ds.l 30
  11422.  
  11423.  even
  11424. ConstCols:
  11425. ; incbin "ConstCols"
  11426.  even
  11427. Smoothscalecols:
  11428. ; incbin "smoothbumppalscaled"
  11429.  even
  11430. SmoothTile:
  11431. ; incbin "smoothbumptile"
  11432.  even
  11433. Bumpscalecols:
  11434. ; incbin "Bumppalscaled"
  11435.  even
  11436. Bumptile:
  11437. ; incbin "bumptile"
  11438.  even
  11439. scalecols: ;incbin "bytepixpalscaled"
  11440.  even
  11441. floorscalecols:
  11442.  incbin "floor256pal"
  11443.  ds.w 256*4
  11444.  
  11445.  even
  11446. PaletteAddr: dc.l 0
  11447. ChunkAddr: dc.l 0
  11448. ;walltiles:
  11449. ; dc.l GreenMechanicWALL
  11450. ; dc.l BlueGreyMetalWALL
  11451. ; dc.l TechnoDetailWALL
  11452. ; dc.l BlueStoneWALL
  11453. ; dc.l RedAlertWALL
  11454. ; dc.l RockWALL
  11455. ;
  11456. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  11457. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  11458. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  11459. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  11460. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  11461. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  11462.  
  11463. floortile:
  11464.  dc.l 0
  11465. ; incbin "floortile" 
  11466.  even
  11467. wallrouts:
  11468. ; incbin "2x2WallDraw" 
  11469.  CNOP 0,64
  11470. BackPicture:
  11471.  incbin "rawback"
  11472. EndBackPicture:
  11473.  
  11474. drawpt: dc.l 0
  11475. olddrawpt: dc.l 0
  11476. frompt: dc.l 0 
  11477.  
  11478. SineTable:
  11479.  incbin "bigsine"
  11480.  
  11481. angspd: dc.w 0
  11482. flooryoff: dc.w 0
  11483. xoff: dc.l 0
  11484. yoff: dc.l 0
  11485. yvel: dc.l 0
  11486. zoff: dc.l 0
  11487. tyoff: dc.l 0
  11488. xspdval: dc.l 0
  11489. zspdval: dc.l 0
  11490. Zone: dc.w 0
  11491.  
  11492. PLR1: dc.b $ff
  11493.  even
  11494. PLR1_energy: dc.w 191
  11495. PLR1_GunSelected: dc.w 0
  11496. PLR1_cosval: dc.w 0
  11497. PLR1_sinval: dc.w 0
  11498. PLR1_angpos: dc.w 0
  11499. PLR1_angspd: dc.w 0
  11500. PLR1_xoff: dc.l 0
  11501. PLR1_yoff: dc.l 0
  11502. PLR1_yvel: dc.l 0
  11503. PLR1_zoff: dc.l 0
  11504. PLR1_tyoff: dc.l 0
  11505. PLR1_xspdval: dc.l 0
  11506. PLR1_zspdval: dc.l 0
  11507. PLR1_Zone: dc.w 0
  11508. PLR1_Roompt: dc.l 0
  11509. PLR1_OldRoompt: dc.l 0
  11510. PLR1_PointsToRotatePtr: dc.l 0
  11511. PLR1_ListOfGraphRooms: dc.l 0
  11512. PLR1_oldxoff: dc.l 0
  11513. PLR1_oldzoff: dc.l 0
  11514. PLR1_StoodInTop: dc.b 0
  11515.  even
  11516. PLR1_height: dc.l 0
  11517. PLR1_RoomBright: dc.w 0
  11518.  
  11519. DOUBLEWIDTH: dc.b $0,0
  11520. DOUBLEHEIGHT: dc.b 0,0
  11521.  
  11522.  ds.w 4
  11523.  
  11524. OLDX1: dc.l 0
  11525. OLDX2: dc.l 0
  11526. OLDZ1: dc.l 0
  11527. OLDZ2: dc.l 0
  11528.  
  11529. XDIFF1: dc.l 0
  11530. ZDIFF1: dc.l 0
  11531. XDIFF2: dc.l 0
  11532. ZDIFF2: dc.l 0
  11533.  
  11534. PLR1s_cosval: dc.w 0
  11535. PLR1s_sinval: dc.w 0
  11536. PLR1s_angpos: dc.w 0
  11537. PLR1s_angspd: dc.w 0
  11538. PLR1s_xoff: dc.l 0
  11539. PLR1s_yoff: dc.l 0
  11540. PLR1s_yvel: dc.l 0
  11541. PLR1s_zoff: dc.l 0
  11542. PLR1s_tyoff: dc.l 0
  11543. PLR1s_xspdval: dc.l 0
  11544. PLR1s_zspdval: dc.l 0
  11545. PLR1s_Zone: dc.w 0
  11546. PLR1s_Roompt: dc.l 0
  11547. PLR1s_OldRoompt: dc.l 0
  11548. PLR1s_PointsToRotatePtr: dc.l 0
  11549. PLR1s_ListOfGraphRooms: dc.l 0
  11550. PLR1s_oldxoff: dc.l 0
  11551. PLR1s_oldzoff: dc.l 0
  11552. PLR1s_height: dc.l 0
  11553. PLR1s_targheight: dc.l 0
  11554.  
  11555. p1_xoff: dc.l 0
  11556. p1_zoff: dc.l 0
  11557. p1_yoff: dc.l 0
  11558. p1_height: dc.l 0
  11559. p1_angpos: dc.w 0
  11560. p1_bobble: dc.w 0
  11561. p1_clicked: dc.b 0
  11562. p1_spctap: dc.b 0
  11563. p1_ducked: dc.b 0
  11564. p1_gunselected: dc.b 0
  11565. p1_fire: dc.b 0
  11566.  even
  11567. p1_holddown: dc.w 0
  11568.  
  11569.  ds.w 4
  11570.  
  11571. PLR2: dc.b $ff
  11572.  even
  11573. PLR2_GunSelected: dc.w 0
  11574. PLR2_energy: dc.w 191
  11575. PLR2_cosval: dc.w 0
  11576. PLR2_sinval: dc.w 0
  11577. PLR2_angpos: dc.w 0
  11578. PLR2_angspd: dc.w 0
  11579. PLR2_xoff: dc.l 0
  11580. PLR2_yoff: dc.l 0
  11581. PLR2_yvel: dc.l 0
  11582. PLR2_zoff: dc.l 0
  11583. PLR2_tyoff: dc.l 0
  11584. PLR2_xspdval: dc.l 0
  11585. PLR2_zspdval: dc.l 0
  11586. PLR2_Zone: dc.w 0
  11587. PLR2_Roompt: dc.l 0
  11588. PLR2_OldRoompt: dc.l 0
  11589. PLR2_PointsToRotatePtr: dc.l 0
  11590. PLR2_ListOfGraphRooms: dc.l 0
  11591. PLR2_oldxoff: dc.l 0
  11592. PLR2_oldzoff: dc.l 0
  11593. PLR2_StoodInTop: dc.b 0
  11594.  even
  11595. PLR2_height: dc.l 0
  11596.  
  11597.  ds.w 4
  11598.  
  11599. PLR2s_cosval: dc.w 0
  11600. PLR2s_sinval: dc.w 0
  11601. PLR2s_angpos: dc.w 0
  11602. PLR2s_angspd: dc.w 0
  11603. PLR2s_xoff: dc.l 0
  11604. PLR2s_yoff: dc.l 0
  11605. PLR2s_yvel: dc.l 0
  11606. PLR2s_zoff: dc.l 0
  11607. PLR2s_tyoff: dc.l 0
  11608. PLR2s_xspdval: dc.l 0
  11609. PLR2s_zspdval: dc.l 0
  11610. PLR2s_Zone: dc.w 0
  11611. PLR2s_Roompt: dc.l 0
  11612. PLR2s_OldRoompt: dc.l 0
  11613. PLR2s_PointsToRotatePtr: dc.l 0
  11614. PLR2s_ListOfGraphRooms: dc.l 0
  11615. PLR2s_oldxoff: dc.l 0
  11616. PLR2s_oldzoff: dc.l 0
  11617. PLR2s_height: dc.l 0
  11618. PLR2s_targheight: dc.l 0
  11619.  
  11620.  ds.w 4
  11621.  
  11622. p2_xoff: dc.l 0
  11623. p2_zoff: dc.l 0
  11624. p2_yoff: dc.l 0
  11625. p2_height: dc.l 0
  11626. p2_angpos: dc.w 0
  11627. p2_bobble: dc.w 0
  11628. p2_clicked: dc.b 0
  11629. p2_spctap: dc.b 0
  11630. p2_ducked: dc.b 0
  11631. p2_gunselected: dc.b 0
  11632. p2_fire: dc.b 0
  11633.  even
  11634. p2_holddown: dc.w 0
  11635.  
  11636. liftanimtab:
  11637.  
  11638. endliftanimtab:
  11639.  
  11640. glassball:
  11641. ; incbin "glassball.inc"
  11642.  
  11643. endglass
  11644. glassballpt: dc.l glassball
  11645.  
  11646. rndtab: ; incbin "randfile"
  11647. endrnd: 
  11648.  
  11649. brightanimtab:
  11650.  dcb.w 200,20
  11651.  dc.w 5
  11652.  dc.w 10,20
  11653.  dc.w 5
  11654.  dcb.w 30,20
  11655.  dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  11656.  dcb.w 40,0
  11657.  dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  11658.  dcb.w 300,0
  11659.  dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  11660.  dc.w -1
  11661.  
  11662. Roompt: dc.l 0
  11663. OldRoompt: dc.l 0
  11664.  
  11665. *****************************************************************
  11666.  *
  11667.  include "AB3:source_4000/LevelData2"
  11668.  *
  11669. *****************************************************************
  11670.  
  11671.  
  11672. wallpt: dc.l 0
  11673. floorpt: dc.l 0
  11674.  
  11675. Rotated:
  11676.  ds.l 2*800 
  11677. ObjRotated:
  11678.  ds.l 2*500
  11679.  
  11680. OnScreen:
  11681.  ds.l 2*800 
  11682.  
  11683. startwait: dc.w 0
  11684. endwait: dc.w 0
  11685.  
  11686. Faces:; incbin "faces2raw"
  11687.  
  11688. LINKS: ds.b 10000
  11689. FLYLINKS: ds.b 10000
  11690. *******************************************************************
  11691.  
  11692. consttab:
  11693.  incbin "constantfile"
  11694.  
  11695. *******************************************************************
  11696.  
  11697.  
  11698.  
  11699. *********************************
  11700.  
  11701. ; include "ab3:source_4000/loadmod.a"
  11702. ; include "ab3:source_4000/proplayer.a"
  11703.  
  11704.  
  11705. darkentab: 
  11706. ;val SET 0
  11707. ; REPT 256
  11708. ; dc.b val
  11709. ;val SET val+1
  11710. ; ENDR
  11711.  incbin "darkenfile"
  11712.  
  11713. MIDDLEX: dc.w 0
  11714. RIGHTX: dc.w 192
  11715. FULLSCR: dc.w 0
  11716.  
  11717. SHADINGTABLE: incbin "SHADEFILE" 
  11718.  
  11719. ******************************************
  11720. * Link file !*****************************
  11721. ******************************************
  11722.  
  11723. LINKSPACE:
  11724.  ds.l 22500
  11725. ; incbin "ab3:includes/test.lnk"
  11726.  
  11727. LINKname:
  11728.  dc.b "ab3:includes/test.lnk",0
  11729.  
  11730. LINKFILE:
  11731.  dc.l LINKSPACE
  11732.  
  11733. ******************************************
  11734.  
  11735.  
  11736. brightentab: incbin "brightenfile"
  11737. WorkSpace:
  11738.  ds.l 8192 
  11739. waterfile: incbin "waterfile"
  11740.  
  11741.  SECTION ffff,CODE_C
  11742.  
  11743. nullspr: dc.l 0
  11744.  
  11745.  cnop 0,8
  11746. borders:
  11747.  incbin "newleftbord"
  11748.  incbin "newrightbord"
  11749.  
  11750. health: incbin "healthstrip"
  11751. Ammunition: incbin "ammostrip"
  11752. healthpal: incbin "healthpal"
  11753. PanelKeys: incbin "greenkey"
  11754.  incbin "redkey"
  11755.  incbin "yellowkey"
  11756.  incbin "bluekey"
  11757.  
  11758. null: ds.w 500
  11759. null2: ds.w 500
  11760. null3: ds.w 500
  11761. null4: ds.w 500
  11762.  
  11763.  
  11764. Blurbfield:
  11765.  
  11766.  dc.w bpl1ptl
  11767. bl1l: dc.w 0
  11768.  dc.w bpl1pth
  11769. bl1h: dc.w 0
  11770.  
  11771.  dc.w diwstart,$2c81
  11772.  dc.w diwstop,$1cc1
  11773.  dc.w ddfstart,$38
  11774.  dc.w ddfstop,$b8
  11775.  dc.w bplcon0,$9201
  11776.  dc.w bplcon1,0
  11777.  dc.w $106,$c40
  11778. blcols:
  11779.  dc.w col0,0
  11780.  dc.w col1,$fff
  11781.  
  11782.  dc.w $108,0
  11783.  dc.w $10a,0
  11784.  
  11785.  dc.w $ffff,$fffe
  11786.  dc.w $ffff,$fffe
  11787.  
  11788. nullline:
  11789.  ds.b 80    
  11790.  
  11791.  include "ab3:source_4000/titlecop.s"
  11792.  
  11793. bigfield:    
  11794.                 ; Start of our copper list.
  11795.  dc.w dmacon,$8020
  11796.  dc.w intreq,$8011
  11797.  dc.w $1fc,$f
  11798.  dc.w diwstart
  11799. winstart: dc.w $2c81
  11800.  dc.w diwstop
  11801. winstop: dc.w $2cc1
  11802.  dc.w ddfstart
  11803. fetchstart: dc.w $38
  11804.  dc.w ddfstop
  11805. fetchstop: dc.w $b8
  11806.  
  11807. bordercols:
  11808.  incbin "borderpal"
  11809.  
  11810.  dc.w spr0ptl
  11811. s0l:
  11812.  dc.w 0
  11813.  dc.w spr0pth
  11814. s0h:
  11815.  dc.w 0
  11816.  dc.w spr1ptl
  11817. s1l:
  11818.  dc.w 0
  11819.  dc.w spr1pth
  11820. s1h:
  11821.  dc.w 0
  11822.  dc.w spr2ptl
  11823. s2l:
  11824.  dc.w 0
  11825.  dc.w spr2pth
  11826. s2h:
  11827.  dc.w 0
  11828.  dc.w spr3ptl
  11829. s3l:
  11830.  dc.w 0
  11831.  dc.w spr3pth
  11832. s3h:
  11833.  dc.w 0
  11834.  dc.w spr4ptl
  11835. s4l:
  11836.  dc.w 0
  11837.  dc.w spr4pth
  11838. s4h:
  11839.  dc.w 0
  11840.  dc.w spr5ptl
  11841. s5l:
  11842.  dc.w 0
  11843.  dc.w spr5pth
  11844. s5h:
  11845.  dc.w 0
  11846.  dc.w spr6ptl
  11847. s6l:
  11848.  dc.w 0
  11849.  dc.w spr6pth
  11850. s6h:
  11851.  dc.w 0
  11852.  dc.w spr7ptl
  11853. s7l:
  11854.  dc.w 0
  11855.  dc.w spr7pth
  11856. s7h:
  11857.  dc.w 0
  11858.  
  11859. ; dc.w $106,$c42
  11860. ; incbin "borderpal"
  11861.  
  11862.  dc.w $106,$c42
  11863.  
  11864.  dc.w bplcon0,$0211
  11865.  dc.w bplcon1
  11866. smoff:
  11867.  dc.w $0
  11868.  
  11869.  dc.w $108
  11870. modulo: dc.w 0
  11871.  dc.w $10a,0
  11872.  
  11873.  dc.w $1001,$ff00
  11874.  dc.w intreq,$11
  11875.  
  11876. PALETTESPACE:
  11877.  dcb.l 528,$1fe0000
  11878.  
  11879.  dc.w $2001,$ff00
  11880.  
  11881.  dc.w bpl1pth
  11882. pl1h
  11883.  dc.w 0
  11884.  
  11885.  dc.w bpl1ptl
  11886. pl1l
  11887.  dc.w 0
  11888.  
  11889.  dc.w bpl2pth
  11890. pl2h
  11891.  dc.w 0
  11892.  
  11893.  dc.w bpl2ptl
  11894. pl2l
  11895.  dc.w 0
  11896.  
  11897.  dc.w bpl3pth
  11898. pl3h
  11899.  dc.w 0
  11900.  
  11901.  dc.w bpl3ptl
  11902. pl3l
  11903.  dc.w 0
  11904.  
  11905.  dc.w bpl4pth
  11906. pl4h
  11907.  dc.w 0
  11908.  
  11909.  dc.w bpl4ptl
  11910. pl4l
  11911.  dc.w 0
  11912.  
  11913.  dc.w bpl5pth
  11914. pl5h
  11915.  dc.w 0
  11916.  
  11917.  dc.w bpl5ptl
  11918. pl5l
  11919.  dc.w 0
  11920.  
  11921.  dc.w bpl6pth
  11922. pl6h
  11923.  dc.w 0
  11924.  
  11925.  dc.w bpl6ptl
  11926. pl6l
  11927.  dc.w 0
  11928.  
  11929.  dc.w bpl7pth
  11930. pl7h
  11931.  dc.w 0
  11932.  
  11933.  dc.w bpl7ptl
  11934. pl7l
  11935.  dc.w 0
  11936.  
  11937.  dc.w bpl8pth
  11938. pl8h
  11939.  dc.w 0
  11940.  
  11941.  dc.w bpl8ptl
  11942. pl8l
  11943.  dc.w 0
  11944.  
  11945.  
  11946. val SET $2c
  11947. SCRMODULOS:
  11948.  REPT 240
  11949.  dc.b val,1,$ff,$fe
  11950.  dc.w $108,0
  11951.  dc.w $10a,0
  11952.  dc.b val,$df,$ff,$fe
  11953. val SET (val+1)&$ff
  11954.  ENDR
  11955.  
  11956.  dc.w $108,0,$10a,0
  11957.  
  11958. ; dc.w $80
  11959. ;JUMPBACKH:
  11960. ; dc.w 0
  11961. ; dc.w $82
  11962. ;JUMPBACKL:
  11963. ; dc.w 0
  11964.  
  11965. ; dc.w $8a,0
  11966.  
  11967.  dc.w $ffff,$fffe
  11968.  dc.w $ffff,$fffe
  11969.  
  11970. PALETTEBIT:
  11971.  incbin "256palette"
  11972.  dc.w $ffff,$fffe
  11973.  
  11974. yposcop:
  11975. ; dc.w $2a11,$fffe
  11976. ; dc.w $8a,0
  11977.  
  11978. ; ds.l 104*12
  11979.  
  11980. ;colbars:
  11981. ;val SET $2a
  11982. ; dcb.l 104*80,$1fe0000
  11983. ; dc.w $106,$c42
  11984. ; 
  11985. ; dc.w $80
  11986. ;pch1:
  11987. ; dc.w 0
  11988. ; dc.w $82
  11989. ;pcl1:
  11990. ; dc.w 0 
  11991. ; 
  11992. ; dc.w $88,0
  11993. ; 
  11994. ; dc.w $ffff,$fffe       ; End copper list.
  11995.  
  11996. ; ds.l 104*12
  11997.  
  11998.  
  11999. ;colbars2:
  12000. ;val SET $2a
  12001. ; dcb.l 104*80,$1fe0000
  12002. ; 
  12003. ; dc.w $106,$c42
  12004. ; 
  12005. ; dc.w $80
  12006. ;pch2:
  12007. ; dc.w 0
  12008. ; dc.w $82
  12009. ;pcl2:
  12010. ; dc.w 0
  12011. ; 
  12012. ; dc.w $88,0
  12013. ; 
  12014. ; dc.w $ffff,$fffe       ; End copper list.
  12015.  
  12016. ; ds.l 104*10
  12017.  
  12018. NullCopper:
  12019.  dc.w $ffff,$fffe
  12020.  
  12021. hitcol: dc.l 0
  12022.  
  12023. old: dc.l 0
  12024.  
  12025. prot5: dc.w 0
  12026. PanelCop:
  12027.  
  12028.  dc.w $80
  12029. och:
  12030.  dc.w 0
  12031.  dc.w $82
  12032. ocl:
  12033.  dc.w 0
  12034.  
  12035. statskip:
  12036.  dc.w $1fe,0
  12037.  dc.w $1fe,0
  12038.  
  12039.  dc.w $10c,0
  12040.  dc.w bplcon0,$1201
  12041.  dc.w bpl1ptl
  12042. n1l:
  12043.  dc.w 0
  12044.  dc.w bpl1pth
  12045. n1h:
  12046.  dc.w 0
  12047.  dc.w $108,-24
  12048.  incbin "Panelpal"
  12049.  
  12050.  dc.w bpl2pth
  12051. p2h
  12052.  dc.w 0
  12053.  
  12054.  dc.w bpl2ptl
  12055. p2l
  12056.  dc.w 0
  12057.  
  12058.  dc.w bpl3pth
  12059. p3h
  12060.  dc.w 0
  12061.  
  12062.  dc.w bpl3ptl
  12063. p3l
  12064.  dc.w 0
  12065.  
  12066.  dc.w bpl4pth
  12067. p4h
  12068.  dc.w 0
  12069.  dc.w bpl4ptl
  12070. p4l
  12071.  dc.w 0
  12072.  dc.w bpl5pth
  12073. p5h
  12074.  dc.w 0
  12075.  dc.w bpl5ptl
  12076. p5l
  12077.  dc.w 0
  12078.  dc.w bpl6pth
  12079. p6h
  12080.  dc.w 0
  12081.  dc.w bpl6ptl
  12082. p6l
  12083.  dc.w 0
  12084.  dc.w bpl7pth
  12085. p7h
  12086.  dc.w 0
  12087.  dc.w bpl7ptl
  12088. p7l
  12089.  dc.w 0
  12090.  dc.w bpl8pth
  12091. p8h
  12092.  dc.w 0
  12093.  dc.w bpl8ptl
  12094. p8l
  12095.  dc.w 0
  12096.  
  12097.  
  12098.  dc.w ddfstart,$38
  12099.  dc.w ddfstop,$b8
  12100.  dc.w diwstart,$2c81
  12101.  dc.w diwstop,$2cc1
  12102.  
  12103.  dc.w bplcon0
  12104. Panelcon: dc.w $0211
  12105.  dc.w bpl1pth
  12106. p1h
  12107.  dc.w 0
  12108.  
  12109.  dc.w bpl1ptl
  12110. p1l
  12111.  dc.w 0
  12112.  
  12113.  
  12114.  dc.w $108,40*7
  12115.  dc.w $10a,40*7
  12116.  
  12117.  dc.w $ffff,$fffe
  12118.  
  12119.  dc.w $180,$fff
  12120.  
  12121.  
  12122.  dc.w $f801,$ff00
  12123.  dc.w col1,$50
  12124.  dc.w $f901,$ff00
  12125.  dc.w col1,$90
  12126.  dc.w $fa01,$ff00
  12127.  dc.w col1,$f0
  12128.  dc.w $fb01,$ff00
  12129.  dc.w col1,$f0
  12130.  dc.w $fc01,$ff00
  12131.  dc.w col1,$90
  12132.  dc.w $fd01,$ff00
  12133.  dc.w col1,$50
  12134.  
  12135.  dc.w $fe01,$ff00
  12136.  dc.w col1,$fff
  12137.  
  12138.  dc.w $ffdf,$fffe
  12139.  dc.w $a01,$ff00
  12140.  dc.w bplcon0,$201
  12141.  
  12142.  incbin "faces2cols"
  12143.  dc.w bpl1pth
  12144. f1h
  12145.  dc.w 0
  12146.  
  12147.  dc.w bpl1ptl
  12148. f1l
  12149.  dc.w 0
  12150.  
  12151.  dc.w bpl2pth
  12152. f2h
  12153.  dc.w 0
  12154.  
  12155.  dc.w bpl2ptl
  12156. f2l
  12157.  dc.w 0
  12158.  
  12159.  dc.w bpl3pth
  12160. f3h
  12161.  dc.w 0
  12162.  
  12163.  dc.w bpl3ptl
  12164. f3l
  12165.  dc.w 0
  12166.  
  12167.  dc.w bpl4pth
  12168. f4h
  12169.  dc.w 0
  12170.  dc.w bpl4ptl
  12171. f4l
  12172.  dc.w 0
  12173.  
  12174.  dc.w bpl5pth
  12175. f5h
  12176.  dc.w 0
  12177.  dc.w bpl5ptl
  12178. f5l
  12179.  dc.w 0
  12180.  
  12181.  dc.w $0c01,$ff00
  12182.  dc.w bplcon0,$5201
  12183.   
  12184.  dc.w $ffff,$fffe
  12185.  
  12186.  cnop 0,64
  12187. FacePlace:
  12188. ; ds.l 6*32*5
  12189.  
  12190. TEXTSCRN: dc.l 0
  12191.  
  12192. TEXTCOP:
  12193.  dc.w intreq,$8030
  12194.  
  12195.  dc.w spr0ptl
  12196. txs0l:
  12197.  dc.w 0
  12198.  dc.w spr0pth
  12199. txs0h:
  12200.  dc.w 0
  12201.  dc.w spr1ptl
  12202. txs1l:
  12203.  dc.w 0
  12204.  dc.w spr1pth
  12205. txs1h:
  12206.  dc.w 0
  12207.  dc.w spr2ptl
  12208. txs2l:
  12209.  dc.w 0
  12210.  dc.w spr2pth
  12211. txs2h:
  12212.  dc.w 0
  12213.  dc.w spr3ptl
  12214. txs3l:
  12215.  dc.w 0
  12216.  dc.w spr3pth
  12217. txs3h:
  12218.  dc.w 0
  12219.  dc.w spr4ptl
  12220. txs4l:
  12221.  dc.w 0
  12222.  dc.w spr4pth
  12223. txs4h:
  12224.  dc.w 0
  12225.  dc.w spr5ptl
  12226. txs5l:
  12227.  dc.w 0
  12228.  dc.w spr5pth
  12229. txs5h:
  12230.  dc.w 0
  12231.  dc.w spr6ptl
  12232. txs6l:
  12233.  dc.w 0
  12234.  dc.w spr6pth
  12235. txs6h:
  12236.  dc.w 0
  12237.  dc.w spr7ptl
  12238. txs7l:
  12239.  dc.w 0
  12240.  dc.w spr7pth
  12241. txs7h:
  12242.  dc.w 0
  12243.  
  12244.  
  12245.  dc.w $10c,$0088
  12246.  
  12247.  dc.w $1fc,$f
  12248.  dc.w diwstart,$2c81    ; Top left corner of screen.
  12249.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12250.  dc.w ddfstart,$38      ; Data fetch start.
  12251.  dc.w ddfstop,$c8       ; Data fetch stop.
  12252.  
  12253.  dc.w bplcon0
  12254. TSCP:
  12255.  dc.w $9201
  12256.  
  12257.  dc.w $106,$c40
  12258.  
  12259.  dc.w $2a01,$ff00
  12260.  
  12261.  dc.w col0,0
  12262.  dc.w col1
  12263. TOPLET:
  12264. TXTCOLL:
  12265.  dc.w 0
  12266.   dc.w col2
  12267. BOTLET:
  12268.  dc.w 0
  12269.  dc.w col3
  12270. ALLTEXT:
  12271.  dc.w $fff
  12272.  dc.w $106,$e40
  12273.  dc.w col3
  12274. ALLTEXTLOW:
  12275.  dc.w $0
  12276.  
  12277.  
  12278.  dc.w bpl1pth
  12279. TSPTh:
  12280.  dc.w 0
  12281.  dc.w bpl1ptl
  12282. TSPTl:
  12283.  dc.w 0
  12284.  
  12285.  dc.w bpl2pth
  12286. TSPTh2:
  12287.  dc.w 0
  12288.  dc.w bpl2ptl
  12289. TSPTl2:
  12290.  dc.w 0
  12291.  
  12292.  
  12293.  dc.w $108,0
  12294.  dc.w $10a,0
  12295.  
  12296.  dc.w $ffff,$fffe
  12297.  
  12298. ********************************************
  12299. * Stuff you don't have to worry about yet. *
  12300. ********************************************
  12301.  
  12302. closeeverything:
  12303.  
  12304.  jsr mt_end
  12305.  
  12306.  move.l #nullcop,d0
  12307. ; move.l old,d0
  12308.  
  12309.  
  12310. ;charlie  
  12311.  move.l d0,$dff080     ; Restore old copper list.
  12312.  move.w d0,ocl
  12313.  swap d0
  12314.  move.w d0,och
  12315.  
  12316. ; move.l doslib,a6
  12317. ; move.l #4,d1
  12318. ; jsr -198(a6)
  12319.  
  12320. ; move.l doslib,d0
  12321. ; move.l d0,a1
  12322. ; move.l 4.w,a6
  12323. ; jsr CloseLib(a6)
  12324.  
  12325.  move.l #$dff000,a6
  12326.  move.w #$8020,dmacon(a6)
  12327.  move.w #$f,dmacon(a6)
  12328.  
  12329. ; move.l 4.w,a6
  12330. ; lea VBLANKInt,a1
  12331. ; moveq #INTB_COPER,d0
  12332. ; jsr _LVORemIntServer(a6)
  12333.  
  12334. ; IFEQ CD32VER
  12335. ; move.l OLDKINT,$68.w
  12336. ; ENDC
  12337. ; move.w saveinters,d0
  12338. ; or.w #$c000,d0
  12339. ; move.w d0,intena(a6)
  12340.  clr.w $dff0a8
  12341.  clr.w $dff0b8
  12342.  clr.w $dff0c8
  12343.  clr.w $dff0d8
  12344.  
  12345.  
  12346. ; move.l oldview,a1
  12347. ; move.l a1,d0
  12348. ; move.l gfxbase,a6
  12349. ; jsr -$de(a6)
  12350.  
  12351. ; cmp.b #'s',mors
  12352. ; beq.s leaveold
  12353. ; move.w #$f8e,$dff1dc
  12354. ;leaveold:
  12355.  
  12356.  jsr RELEASELEVELMEM
  12357.  jsr RELEASESCRNMEM
  12358.  
  12359.  move.l #0,d0
  12360.  
  12361.  rts
  12362.  
  12363.  
  12364.  
  12365. intbase: dc.l 0
  12366. gfxbase: dc.l 0
  12367. oldview: dc.l 0
  12368.  
  12369. stuff:
  12370.  
  12371.     PRSDL
  12372.     Lea    gfxname(pc),a1    
  12373.     Moveq.l    #0,d0
  12374.     Move.l    $4.w,a6    
  12375.     Jsr    -$228(a6)
  12376.     add.w d1,RVAL1
  12377.     Move.l     d0,gfxbase
  12378.     Move.l    d0,a6                Use As Base Reg
  12379.     Move.l    34(a6),oldview
  12380.     move.l 38(a6),old
  12381.     rts
  12382.  
  12383. gfxname dc.b "graphics.library",0
  12384.  even
  12385. INTUNAME    dc.b    "intuition.library",0
  12386.  
  12387.  even
  12388.  
  12389.  
  12390.  cnop 0,64
  12391.  
  12392. Panel:
  12393.  dc.l 0
  12394.  
  12395. TimerScr: 
  12396. ;ds.b 40*64
  12397.  
  12398. scrntab:
  12399.  ds.b 16
  12400. val SET 32
  12401.  REPT 96
  12402.  dc.b val,val,val
  12403. val SET val+1
  12404.  ENDR
  12405.  ds.b 16
  12406.  
  12407. smallscrntab:
  12408. val SET 32
  12409.  REPT 96
  12410.  dc.b val,val
  12411. val SET val+1
  12412.  ENDR
  12413.  
  12414.  cnop 0,64
  12415. scrn:
  12416.  incbin "ab3:includes/newborderRAW"
  12417.  ds.b 80
  12418. scrn2:
  12419.  incbin "ab3:includes/newborderRAW"
  12420.  ds.b 80
  12421.  
  12422. SCRNDRAWPT: dc.l scrn
  12423. SCRNSHOWPT: dc.l scrn2
  12424.  
  12425.  dcb.l 8,$33333333
  12426.  dc.l 0
  12427.  dc.l 0
  12428.  
  12429.  dcb.l 8,$0f0f0f0f
  12430.  dc.l 0
  12431.  dc.l 0
  12432.  
  12433.  dcb.l 8,$00ff00ff
  12434.  dc.l 0
  12435.  dc.l 0
  12436.  
  12437.  dcb.l 8,$0000ffff
  12438.  dc.l 0
  12439.  dc.l 0
  12440.  
  12441.  dc.l 0,-1,0,-1,0,-1,0,-1
  12442.  dc.l 0
  12443.  dc.l 0
  12444.  
  12445.  dc.l -1,-1,0,0,-1,-1,0,0
  12446.  dc.l 0
  12447.  dc.l 0
  12448.  
  12449.  dc.l 0,0,-1,-1,-1,-1,-1,-1
  12450.  dc.l 0
  12451.  dc.l 0
  12452.  
  12453. NumTimes: dc.l 0
  12454. TimeCount: dc.l 0
  12455. oldtime: dc.l 0
  12456. counting: dc.b 0
  12457. oktodisplay: dc.b 0
  12458.  
  12459. INITTIMER:
  12460.  move.l #0,TimeCount
  12461.  move.l #0,NumTimes
  12462.  rts
  12463.  
  12464. STARTCOUNT:
  12465.  move.l d0,-(a7)
  12466.  move.l $dff004,d0
  12467.  and.l #$1ffff,d0
  12468.  move.l d0,oldtime
  12469.  st counting
  12470.  move.l (a7)+,d0
  12471.  rts
  12472.  
  12473. STOPCOUNT:
  12474.  move.l d0,-(a7)
  12475.  move.l $dff004,d0
  12476.  and.l #$1ffff,d0
  12477.  
  12478.  sub.l oldtime,d0
  12479.  cmp.l #-256,d0
  12480.  bge.s okcount
  12481.  add.l #313*256,d0
  12482. okcount:
  12483.  add.l d0,TimeCount
  12484.  addq.l #1,NumTimes
  12485.  clr.b counting
  12486.  move.l (a7)+,d0
  12487.  rts
  12488.  
  12489. STOPCOUNTNOADD:
  12490.  move.l d0,-(a7)
  12491.  move.l $dff004,d0
  12492.  and.l #$1ffff,d0
  12493.  
  12494.  sub.l oldtime,d0
  12495.  cmp.l #-256,d0
  12496.  bge.s okcount2
  12497.  add.l #313*256,d0
  12498. okcount2:
  12499.  add.l d0,TimeCount
  12500.  clr.b counting
  12501.  move.l (a7)+,d0
  12502.  rts
  12503.  
  12504. maxbot: dc.w 0
  12505. tstneg: dc.l 0
  12506.  
  12507. STOPTIMER:
  12508.  st oktodisplay
  12509.  rts
  12510.  
  12511. digits: incbin "numbers.inc"
  12512.  
  12513. COMPACTMAP: ds.l 257
  12514.  
  12515. BIGMAP: ds.l 256*10
  12516.  
  12517.  Section Sounds,CODE_C
  12518.  
  12519. nullcop:
  12520.  dc.w $106,$c40
  12521.  dc.w $180,0 
  12522.  dc.w $100,$0
  12523.  dc.w $ffff,$fffe
  12524.  
  12525. Scream:
  12526. ; incbin "ab3:sounds/Scream"
  12527. ; ds.w 100
  12528. EndScream:
  12529. LowScream:
  12530. ; incbin "ab3:sounds/LowScream"
  12531. ; ds.w 100
  12532. EndLowScream:
  12533. BaddieGun:
  12534. ; incbin "ab3:sounds/BaddieGun"
  12535. EndBaddieGun:
  12536. bass:
  12537. ; incbin "ab3:sounds/backbass+drum"
  12538. bassend:
  12539. Shoot:
  12540. ; incbin "ab3:sounds/fire!"
  12541. EndShoot:
  12542. Munch:
  12543. ; incbin "ab3:sounds/munch"
  12544. EndMunch:
  12545. PooGun:
  12546. ; incbin "ab3:sounds/shoot.dm"
  12547. EndPooGun:
  12548. Collect:
  12549. ; incbin "ab3:sounds/collect"
  12550. EndCollect:
  12551. DoorNoise:
  12552. ; incbin "ab3:sounds/newdoor"
  12553. EndDoorNoise:
  12554. Stomp:
  12555. ; incbin "ab3:sounds/footstep3"
  12556. EndStomp:
  12557. SwitchNoise:
  12558. ; incbin "ab3:sounds/switch"
  12559. EndSwitch:
  12560. Reload:
  12561. ; incbin "ab3:sounds/switch1.SFX"
  12562. EndReload:
  12563.  
  12564. CHEATFRAME:
  12565.  dc.b 26,20,33,27,17,12
  12566. ENDCHEAT:
  12567.  
  12568. NoAmmo:
  12569. ; incbin "ab3:sounds/noammo"
  12570. EndNoAmmo:
  12571. Splotch:
  12572. ; incbin "ab3:sounds/splotch"
  12573. EndSplotch:
  12574. SplatPop:
  12575. ; incbin "ab3:sounds/splatpop"
  12576. EndSplatPop:
  12577. Boom:
  12578. ; incbin "ab3:sounds/boom"
  12579. EndBoom:
  12580. Hiss:
  12581. ; incbin "ab3:sounds/newhiss"
  12582. EndHiss:
  12583. Howl1:
  12584. ; incbin "ab3:sounds/howl1"
  12585. EndHowl1:
  12586. Howl2:
  12587. ; incbin "ab3:sounds/howl2"
  12588. EndHowl2:
  12589. Pant:
  12590. ; incbin "ab3:sounds/pant"
  12591. EndPant:
  12592. Whoosh:
  12593. ; incbin "ab3:sounds/whoosh"
  12594. EndWhoosh:
  12595. ROAR:
  12596. ; incbin "ab3:sounds/bigscream"
  12597. EndROAR
  12598. whoosh:
  12599. ; incbin "ab3:sounds/flame"
  12600. Endwhoosh:
  12601.  SECTION music,code_c
  12602.  
  12603. UseAllChannels: dc.w 0
  12604.  
  12605. mt_init:move.l    mt_data,a0
  12606.     move.l    a0,a1
  12607.     add.l    #$3b8,a1
  12608.     moveq    #$7f,d0
  12609.     moveq    #0,d1
  12610. mt_loop:move.l    d1,d2
  12611.     subq.w    #1,d0
  12612. mt_lop2:move.b    (a1)+,d1
  12613.     cmp.b    d2,d1
  12614.     bgt.s    mt_loop
  12615.     dbf    d0,mt_lop2
  12616.     addq.b    #1,d2
  12617.  
  12618.     lea    mt_samplestarts(pc),a1
  12619.     asl.l    #8,d2
  12620.     asl.l    #2,d2
  12621.     add.l    #$43c,d2
  12622.     add.l    a0,d2
  12623.     move.l    d2,a2
  12624.     moveq    #$1e,d0
  12625. mt_lop3:clr.l    (a2)
  12626.     move.l    a2,(a1)+
  12627.     moveq    #0,d1
  12628.     move.w    42(a0),d1
  12629.     asl.l    #1,d1
  12630.     add.l    d1,a2
  12631.     add.l    #$1e,a0
  12632.     dbf    d0,mt_lop3
  12633.  
  12634.     or.b    #$2,$bfe001
  12635.     move.b    #$6,mt_speed
  12636.     clr.w    $dff0a8
  12637.     clr.w    $dff0b8
  12638.     clr.w    $dff0c8
  12639.     clr.w    $dff0d8
  12640.     clr.b    mt_songpos
  12641.     clr.b    mt_counter
  12642.     clr.w    mt_pattpos
  12643.     rts
  12644.  
  12645. mt_end:    clr.w    $dff0a8
  12646.     clr.w    $dff0b8
  12647.     clr.w    $dff0c8
  12648.     clr.w    $dff0d8
  12649.     move.w    #$f,$dff096
  12650.     rts
  12651.  
  12652. mt_music:
  12653.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  12654.     move.l    mt_data,a0
  12655.     addq.b    #$1,mt_counter
  12656.     move.b    mt_counter,D0
  12657.     cmp.b    mt_speed,D0
  12658.     blt.s    mt_nonew
  12659.     clr.b    mt_counter
  12660.     bra    mt_getnew
  12661.  
  12662. mt_nonew:
  12663.     lea    mt_voice1(pc),a6
  12664.     lea    $dff0a0,a5
  12665.     bsr    mt_checkcom
  12666.     lea    mt_voice2(pc),a6
  12667.     lea    $dff0b0,a5
  12668.     bsr    mt_checkcom
  12669.     tst.b UseAllChannels
  12670.     beq mt_endr
  12671.      lea    mt_voice3(pc),a6
  12672.     lea    $dff0c0,a5
  12673.     bsr    mt_checkcom
  12674.     lea    mt_voice4(pc),a6
  12675.     lea    $dff0d0,a5
  12676.     bsr    mt_checkcom
  12677.     bra    mt_endr
  12678.  
  12679. mt_arpeggio:
  12680.     moveq    #0,d0
  12681.     move.b    mt_counter,d0
  12682.     divs    #$3,d0
  12683.     swap    d0
  12684.     cmp.w    #$0,d0
  12685.     beq.s    mt_arp2
  12686.     cmp.w    #$2,d0
  12687.     beq.s    mt_arp1
  12688.  
  12689.     moveq    #0,d0
  12690.     move.b    $3(a6),d0
  12691.     lsr.b    #4,d0
  12692.     bra.s    mt_arp3
  12693. mt_arp1:moveq    #0,d0
  12694.     move.b    $3(a6),d0
  12695.     and.b    #$f,d0
  12696.     bra.s    mt_arp3
  12697. mt_arp2:move.w    $10(a6),d2
  12698.     bra.s    mt_arp4
  12699. mt_arp3:asl.w    #1,d0
  12700.     moveq    #0,d1
  12701.     move.w    $10(a6),d1
  12702.     lea    mt_periods(pc),a0
  12703.     moveq    #$24,d7
  12704. mt_arploop:
  12705.     move.w    (a0,d0.w),d2
  12706.     cmp.w    (a0),d1
  12707.     bge.s    mt_arp4
  12708.     addq.l    #2,a0
  12709.     dbf    d7,mt_arploop
  12710.     rts
  12711. mt_arp4:move.w    d2,$6(a5)
  12712.     rts
  12713.  
  12714. mt_getnew:
  12715.     move.l    mt_data,a0
  12716.     move.l    a0,a3
  12717.     move.l    a0,a2
  12718.     add.l    #$c,a3
  12719.     add.l    #$3b8,a2
  12720.     add.l    #$43c,a0
  12721.  
  12722.     moveq    #0,d0
  12723.     move.l    d0,d1
  12724.     move.b    mt_songpos,d0
  12725.     move.b    (a2,d0.w),d1
  12726.     asl.l    #8,d1
  12727.     asl.l    #2,d1
  12728.     add.w    mt_pattpos,d1
  12729.     clr.w    mt_dmacon
  12730.  
  12731.     lea    $dff0a0,a5
  12732.     lea    mt_voice1(pc),a6
  12733.     bsr    mt_playvoice
  12734.     lea    $dff0b0,a5
  12735.     lea    mt_voice2(pc),a6
  12736.     bsr    mt_playvoice
  12737.     tst.b UseAllChannels
  12738.     beq mt_setdma
  12739.     lea    $dff0c0,a5
  12740.     lea    mt_voice3(pc),a6
  12741.     bsr    mt_playvoice
  12742.     lea    $dff0d0,a5
  12743.     lea    mt_voice4(pc),a6
  12744.     bsr    mt_playvoice
  12745.     bra    mt_setdma
  12746.  
  12747. PROTCALC:
  12748. ;    include "ab3:source_4000/protcalc.s"
  12749.     incbin "ab3:includes/protcalc.bin"
  12750. ENDPROTCALC:
  12751.  
  12752. mt_playvoice:
  12753.     move.l    (a0,d1.l),(a6)
  12754.     addq.l    #4,d1
  12755.     moveq    #0,d2
  12756.     move.b    $2(a6),d2
  12757.     and.b    #$f0,d2
  12758.     lsr.b    #4,d2
  12759.     move.b    (a6),d0
  12760.     and.b    #$f0,d0
  12761.     or.b    d0,d2
  12762.     tst.b    d2
  12763.     beq.s    mt_setregs
  12764.     moveq    #0,d3
  12765.     lea    mt_samplestarts(pc),a1
  12766.     move.l    d2,d4
  12767.     subq.l    #$1,d2
  12768.     asl.l    #2,d2
  12769.     mulu    #$1e,d4
  12770.     move.l    (a1,d2.l),$4(a6)
  12771.     move.w    (a3,d4.l),$8(a6)
  12772.     move.w    $2(a3,d4.l),$12(a6)
  12773.     move.w    $4(a3,d4.l),d3
  12774.     tst.w    d3
  12775.     beq.s    mt_noloop
  12776.     move.l    $4(a6),d2
  12777.     asl.w    #1,d3
  12778.     add.l    d3,d2
  12779.     move.l    d2,$a(a6)
  12780.     move.w    $4(a3,d4.l),d0
  12781.     add.w    $6(a3,d4.l),d0
  12782.     move.w    d0,8(a6)
  12783.     move.w    $6(a3,d4.l),$e(a6)
  12784.     move.w    $12(a6),d0
  12785.     asr.w #2,d0
  12786.     move.w d0,$8(a5)
  12787.     bra.s    mt_setregs
  12788. mt_noloop:
  12789.     move.l    $4(a6),d2
  12790.     add.l    d3,d2
  12791.     move.l    d2,$a(a6)
  12792.     move.w    $6(a3,d4.l),$e(a6)
  12793.     move.w    $12(a6),d0
  12794.     asr.w #2,d0
  12795.     move.w d0,$8(a5)
  12796. mt_setregs:
  12797.     move.w    (a6),d0
  12798.     and.w    #$fff,d0
  12799.     beq    mt_checkcom2
  12800.     move.b    $2(a6),d0
  12801.     and.b    #$F,d0
  12802.     cmp.b    #$3,d0
  12803.     bne.s    mt_setperiod
  12804.     bsr    mt_setmyport
  12805.     bra    mt_checkcom2
  12806. mt_setperiod:
  12807.     move.w    (a6),$10(a6)
  12808.     and.w    #$fff,$10(a6)
  12809.     move.w    $14(a6),d0
  12810.     move.w    d0,$dff096
  12811.     clr.b    $1b(a6)
  12812.  
  12813.     move.l    $4(a6),(a5)
  12814.     move.w    $8(a6),$4(a5)
  12815.     move.w    $10(a6),d0
  12816.     and.w    #$fff,d0
  12817.     move.w    d0,$6(a5)
  12818.     move.w    $14(a6),d0
  12819.     or.w    d0,mt_dmacon
  12820.     bra    mt_checkcom2
  12821.  
  12822. mt_setdma:
  12823.      move.w #250,d0
  12824. mt_wait:
  12825.      add.w #1,testchip
  12826.      dbra d0,mt_wait
  12827.     move.w    mt_dmacon,d0
  12828.     or.w    #$8000,d0
  12829.     and.w #%1111111111110011,d0
  12830.     move.w    d0,$dff096
  12831.     move.w #250,d0
  12832. mt_wait2:
  12833.     add.w #1,testchip
  12834.     dbra    d0,mt_wait2
  12835.     lea    $dff000,a5
  12836.     tst.b UseAllChannels
  12837.     beq.s noall
  12838.     lea    mt_voice4(pc),a6
  12839.     move.l    $a(a6),$d0(a5)
  12840.     move.w    $e(a6),$d4(a5)
  12841.     lea    mt_voice3(pc),a6
  12842.     move.l    $a(a6),$c0(a5)
  12843.     move.w    $e(a6),$c4(a5)
  12844. noall:
  12845.     lea    mt_voice2(pc),a6
  12846.     move.l    $a(a6),$b0(a5)
  12847.     move.w    $e(a6),$b4(a5)
  12848.     lea    mt_voice1(pc),a6
  12849.     move.l    $a(a6),$a0(a5)
  12850.     move.w    $e(a6),$a4(a5)
  12851.  
  12852.     add.w    #$10,mt_pattpos
  12853.     cmp.w    #$400,mt_pattpos
  12854.     bne.s    mt_endr
  12855. mt_nex:    clr.w    mt_pattpos
  12856.     clr.b    mt_break
  12857.     addq.b    #1,mt_songpos
  12858.     and.b    #$7f,mt_songpos
  12859.     move.b    mt_songpos,d1
  12860. ;    cmp.b    mt_data+$3b6,d1
  12861. ;    bne.s    mt_endr
  12862. ;    move.b    mt_data+$3b7,mt_songpos
  12863. mt_endr:tst.b    mt_break
  12864.     bne.s    mt_nex
  12865.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  12866.     rts
  12867.  
  12868. mt_setmyport:
  12869.     move.w    (a6),d2
  12870.     and.w    #$fff,d2
  12871.     move.w    d2,$18(a6)
  12872.     move.w    $10(a6),d0
  12873.     clr.b    $16(a6)
  12874.     cmp.w    d0,d2
  12875.     beq.s    mt_clrport
  12876.     bge.s    mt_rt
  12877.     move.b    #$1,$16(a6)
  12878.     rts
  12879. mt_clrport:
  12880.     clr.w    $18(a6)
  12881. mt_rt:    rts
  12882.  
  12883. CODESTORE: dc.l 0
  12884.  
  12885. mt_myport:
  12886.     move.b    $3(a6),d0
  12887.     beq.s    mt_myslide
  12888.     move.b    d0,$17(a6)
  12889.     clr.b    $3(a6)
  12890. mt_myslide:
  12891.     tst.w    $18(a6)
  12892.     beq.s    mt_rt
  12893.     moveq    #0,d0
  12894.     move.b    $17(a6),d0
  12895.     tst.b    $16(a6)
  12896.     bne.s    mt_mysub
  12897.     add.w    d0,$10(a6)
  12898.     move.w    $18(a6),d0
  12899.     cmp.w    $10(a6),d0
  12900.     bgt.s    mt_myok
  12901.     move.w    $18(a6),$10(a6)
  12902.     clr.w    $18(a6)
  12903. mt_myok:move.w    $10(a6),$6(a5)
  12904.     rts
  12905. mt_mysub:
  12906.     sub.w    d0,$10(a6)
  12907.     move.w    $18(a6),d0
  12908.     cmp.w    $10(a6),d0
  12909.     blt.s    mt_myok
  12910.     move.w    $18(a6),$10(a6)
  12911.     clr.w    $18(a6)
  12912.     move.w    $10(a6),$6(a5)
  12913.     rts
  12914.  
  12915. mt_vib:    move.b    $3(a6),d0
  12916.     beq.s    mt_vi
  12917.     move.b    d0,$1a(a6)
  12918.  
  12919. mt_vi:    move.b    $1b(a6),d0
  12920.     lea    mt_sin(pc),a4
  12921.     lsr.w    #$2,d0
  12922.     and.w    #$1f,d0
  12923.     moveq    #0,d2
  12924.     move.b    (a4,d0.w),d2
  12925.     move.b    $1a(a6),d0
  12926.     and.w    #$f,d0
  12927.     mulu    d0,d2
  12928.     lsr.w    #$6,d2
  12929.     move.w    $10(a6),d0
  12930.     tst.b    $1b(a6)
  12931.     bmi.s    mt_vibmin
  12932.     add.w    d2,d0
  12933.     bra.s    mt_vib2
  12934. mt_vibmin:
  12935.     sub.w    d2,d0
  12936. mt_vib2:move.w    d0,$6(a5)
  12937.     move.b    $1a(a6),d0
  12938.     lsr.w    #$2,d0
  12939.     and.w    #$3c,d0
  12940.     add.b    d0,$1b(a6)
  12941.     rts
  12942.  
  12943. mt_nop:    move.w    $10(a6),$6(a5)
  12944.     rts
  12945.  
  12946.  
  12947. mt_checkcom:
  12948.     move.w    $2(a6),d0
  12949.     and.w    #$fff,d0
  12950.     beq.s    mt_nop
  12951.     move.b    $2(a6),d0
  12952.     and.b    #$f,d0
  12953.     tst.b    d0
  12954.     beq    mt_arpeggio
  12955.     cmp.b    #$1,d0
  12956.     beq.s    mt_portup
  12957.     cmp.b    #$2,d0
  12958.     beq    mt_portdown
  12959.     cmp.b    #$3,d0
  12960.     beq    mt_myport
  12961.     cmp.b    #$4,d0
  12962.     beq    mt_vib
  12963.     move.w    $10(a6),$6(a5)
  12964.     cmp.b    #$a,d0
  12965.     beq.s    mt_volslide
  12966.     rts
  12967.  
  12968. mt_volslide:
  12969.     moveq    #0,d0
  12970.     move.b    $3(a6),d0
  12971.     lsr.b    #4,d0
  12972.     tst.b    d0
  12973.     beq.s    mt_voldown
  12974.     add.w    d0,$12(a6)
  12975.     cmp.w    #$40,$12(a6)
  12976.     bmi.s    mt_vol2
  12977.     move.w    #$40,$12(a6)
  12978. mt_vol2:move.w    $12(a6),d0
  12979.     asr.w #2,d0
  12980.     move.w d0,$8(a5)
  12981.     rts
  12982.  
  12983. mt_voldown:
  12984.     moveq    #0,d0
  12985.     move.b    $3(a6),d0
  12986.     and.b    #$f,d0
  12987.     sub.w    d0,$12(a6)
  12988.     bpl.s    mt_vol3
  12989.     clr.w    $12(a6)
  12990. mt_vol3:move.w    $12(a6),d0
  12991.     asr.w #2,d0
  12992.     move.w d0,$8(a5)
  12993.     rts
  12994.  
  12995. mt_portup:
  12996.     moveq    #0,d0
  12997.     move.b    $3(a6),d0
  12998.     sub.w    d0,$10(a6)
  12999.     move.w    $10(a6),d0
  13000.     and.w    #$fff,d0
  13001.     cmp.w    #$71,d0
  13002.     bpl.s    mt_por2
  13003.     and.w    #$f000,$10(a6)
  13004.     or.w    #$71,$10(a6)
  13005. mt_por2:move.w    $10(a6),d0
  13006.     and.w    #$fff,d0
  13007.     move.w    d0,$6(a5)
  13008.     rts
  13009.  
  13010. mt_portdown:
  13011.     clr.w    d0
  13012.     move.b    $3(a6),d0
  13013.     add.w    d0,$10(a6)
  13014.     move.w    $10(a6),d0
  13015.     and.w    #$fff,d0
  13016.     cmp.w    #$358,d0
  13017.     bmi.s    mt_por3
  13018.     and.w    #$f000,$10(a6)
  13019.     or.w    #$358,$10(a6)
  13020. mt_por3:move.w    $10(a6),d0
  13021.     and.w    #$fff,d0
  13022.     move.w    d0,$6(a5)
  13023.     rts
  13024.  
  13025. mt_checkcom2:
  13026.     move.b    $2(a6),d0
  13027.     and.b    #$f,d0
  13028.     cmp.b    #$e,d0
  13029.     beq.s    mt_setfilt
  13030.     cmp.b    #$d,d0
  13031.     beq.s    mt_pattbreak
  13032.     cmp.b    #$b,d0
  13033.     beq.s    mt_posjmp
  13034.     cmp.b    #$c,d0
  13035.     beq.s    mt_setvol
  13036.     cmp.b    #$f,d0
  13037.     beq.s    mt_setspeed
  13038.     rts
  13039.  
  13040. mt_setfilt:
  13041.     move.b    $3(a6),d0
  13042.     and.b    #$1,d0
  13043.     asl.b    #$1,d0
  13044.     and.b    #$fd,$bfe001
  13045.     or.b    d0,$bfe001
  13046.     rts
  13047. mt_pattbreak:
  13048.     not.b    mt_break
  13049.     rts
  13050. mt_posjmp:
  13051.     st reachedend
  13052.     move.b    $3(a6),d0
  13053.     subq.b    #$1,d0
  13054.     move.b    d0,mt_songpos
  13055.     not.b    mt_break
  13056.     rts
  13057. mt_setvol:
  13058.     cmp.b    #$40,$3(a6)
  13059.     ble.s    mt_vol4
  13060.     move.b    #$40,$3(a6)
  13061. mt_vol4:move.b    $3(a6),d0
  13062.     asr.w #2,d0
  13063.     move.w d0,$8(a5)
  13064.     rts
  13065. mt_setspeed:
  13066.     cmp.b    #$1f,$3(a6)
  13067.     ble.s    mt_sets
  13068.     move.b    #$1f,$3(a6)
  13069. mt_sets:move.b    $3(a6),d0
  13070.     beq.s    mt_rts2
  13071.     move.b    d0,mt_speed
  13072.     clr.b    mt_counter
  13073. mt_rts2:rts
  13074.  
  13075. mt_sin:
  13076.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  13077.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  13078.  
  13079. mt_periods:
  13080.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  13081.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  13082.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  13083.  DC.w $007f,$0078,$0071,$0000,$0000
  13084.  
  13085. reachedend: dc.b 0
  13086. mt_speed:    DC.b    6
  13087. mt_songpos:    DC.b    0
  13088. mt_pattpos:    DC.w    0
  13089. mt_counter:    DC.b    0
  13090.  
  13091. mt_break:    DC.b    0
  13092. mt_dmacon:    DC.w    0
  13093. mt_samplestarts:DS.L    $1f
  13094. mt_voice1:    DS.w    10
  13095.         DC.w    1
  13096.         DS.w    3
  13097. mt_voice2:    DS.w    10
  13098.         DC.w    2
  13099.         DS.w    3
  13100. mt_voice3:    DS.w    10
  13101.         DC.w    4
  13102.         DS.w    3
  13103. mt_voice4:    DS.w    10
  13104.         DC.w    8
  13105.         DS.w    3
  13106.  
  13107. CHEATPTR: dc.l 0
  13108. CHEATNUM: dc.l 0
  13109.  
  13110. testchip: dc.w 0
  13111.  
  13112. ;/* End of File */
  13113. mt_data: dc.l 0
  13114. tstchip: dc.l 0
  13115.  include "SERIAL_NIGHTMARE"
  13116.  
  13117. ingame:
  13118. ; incbin "ab3:includes/ingame"
  13119. gameover: incbin "ab3:includes/gameover"
  13120. welldone: incbin "ab3:includes/welldone"
  13121.  
  13122.  
  13123.